Select Code to Download

open my $infh, '<', 'input.txt' or die $!;
my @lines = <$infh>;
...
# Script Output:
found a z at - line 14 (input line 2)
found a z at - line 14 (input line 3)

open my $infh, '<', 'input.txt' or die $!;
# open output file here
...
# Script Output:
found a z at - line 6, <$infh> line 3.
found a z at - line 6, <$infh> line 4.