@single = qw(I sit here and think-
             what the-hell am
             i doing with perl?);

foreach (@single)
{
$_=~ s/([^A-Za-z0-9-])//i;
}