in reply to print out

Before you test it, remove the spaces: 
$msg =~ tr/ //d;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom