If you are just removing characters from an array of words, just tr and map.

my @data = qw ('hello world' wondered o'brian!);
print "Before: @data\n";
map {tr/'//d} @data;
print "After: @data\n";
[download]