if ($lastHeading eq 'MEANINGLESS TEXT') { print $lines[2]; # third line print $lines[5]; # sixth line print $lines[7]; # eighth line } elsif ($lastHeading eq 'ALTERNATIVE TEXT') { print $lines[3]; # fourth line print $lines[5]; # sixth line print $lines[7]; # eighth line #### ___ -DA > perl -MPOSIX -le '$ENV{TZ}="EST";print ctime(1000000000)' Sat Sep 8 20:46:40 2001