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.
Give a man a fish: <%-{-{-{-<
In reply to Re^4: unicode string comparison (perl 5.26)
by AnomalousMonk
in thread unicode string comparison (perl 5.26)
by md351
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |