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