#!/usr/bin/perl

my $stripped = '" !';
my $word = '"Wilmer!"';
foreach my $punc (split(/ / , $stripped)) {
   #print "punc: $punc\n";
   $word =~ s/^$punc//;
   $word =~ s/$punc$//;
}

print $word;