Select Code to Download

@single = qw(I sit here and think-
             what the-hell am
...
{
$_=~ s/([^A-Za-z0-9-])//i;
}

$a= "I sit here and think-
...
     i doing with perl?"

qw($a);