Select Code to Download

#! perl
use strict;
...
AAAA AAAAAAA
AAAA AAA AAA
Leave me intact PLEASE

 0:10 >perl 369_SoPW.pl
Leave me intact PLEASE

 0:13 >

print "@lines";

print for @lines;