Select Code to Download

while (<>) {
   print("/") if $. != 1;
   print(/=(.*)/);
}
print("\n");

my @line = <DATA>;
for my $line (@line) {

while (my $line = <DATA>) {