Your string ends in a \r (carriage return). Remove it: $str =~ s/\r$//;. Or remove all of them: $str =~ tr/\r//d;.

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;