c:\@Work\Perl>perl -wMstrict -le
"my @lines = (qq{foo\n}, qq{bar\n});
 print qq{[[@lines]]};
 ;;
 for $1 (@lines) {
   chomp $1;
   print qq{'$1'};
   }
 ;;
 print qq{[[@lines]]};
"
[[foo
 bar
]]
'foo'
'bar'
[[foo bar]]