...and in the following line you escaped your dot unnecessarily:

my $str = '1.2.3.4.5';
$str =~ tr/./_/;      # No need to escape '.'
print $str;
[download]