Select Code to Download

cat data.txt | prog1.pl | prog2.pl option | prog3.pl > out.txt

# input file
good1
...
good1
good2
good3

my %testdata = (
                 'good1' => 'good1',
...
                 'bad1' => '',
                 'good3' => 'good3',
               );

my ($args = <<'ARGS')=~s/^\s+//gm;
arg1
...
good2
good3
OUTPUT