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

qw($a);