use strict;
use warnings;

my $stripped = qr/["!]/;
my $word = '"Wilmer!"';
$word =~ s/^(?:$stripped)+(.*?)(?:$stripped)+$/$1/;
print $word;