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

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

##</code><code>##


$a= "I sit here and think-
     what the-hell am
     i doing with perl?"

qw($a);