#!/usr/bin/perl
use warnings;
use strict;

my @array = qw/what what? what. what!/;

foreach my $word (@array)
{
   $word =~ s/(\.|\?|\!)$//;
}

foreach my $word (@array)
{
   print "$word\n";
}