Note also that the inverted character set in  $last=~/[^/x00-\x7f] (missing closing / forward slash for regex, unescaped forward slash in pattern) should probably be  [^\x00-\x7f] (backslash vice forward slash); otherwise,  [^/x00-\x7f] is the same as  [^\/-\x7f].

Update: Oops... choroba already mentioned the point about  [^\x00-\x7f] vs  [^/x00-\x7f] here; didn't read that far before I posted.