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