use strict;
use warnings;

my $word = 'Wilmer",';

$word =~ s/^  \W*?          # ignore any leading punc 
            ( \w .*? )      # swallow everything lazily
            (?: \W+  )? $   # ignore any trailing punc
          /$1/x;            

print $word;