sub SplitUrlPunct { .... $punct = ""; # 아래 두 줄의 xc0 을 x80 으로 바꿈 # ($punct) = ($url =~ /([^a-zA-Z0-9\/\xc0-\xff]+)$/); # $url =~ s/([^a-zA-Z0-9\/\xc0-\xff]+)$//; ($punct) = ($url =~ /([^a-zA-Z0-9\/\x80-\xff]+)$/); $url =~ s/([^a-zA-Z0-9\/\x80-\xff]+)$//; return ($url, $punct); }