but sadly it does not work

Sure it does

@array = qw[ SURE! IT! DOES! ];
foreach my $word (@array)
{
   $word =~ s/(\.|\?|\!)$//;
}
die "@array";
__END__
SURE IT DOES at - line 6.
[download]

What is the reason you didn't post your @array?