my $test = 'vacation.msg';
my @alt;
foreach my $pos (1..length $test) {
   push @alt, substr $test, $pos; # prefix truncated
   push @alt, substr $test, 0, length($test) - $pos; # suffix truncated
}
my $regex = join '|', $test, @alt;
$vacation_str = s/$regex//;