Select Code to Download

for(my $str = 'vaction.msg'; $str; $str = substr($str, 1, length($str)
+)) {
    $replace_on =~ s/$str//;
}