Select Code to Download

#!/usr/bin/perl
# file grep.pl
...
        $found = '';
    }
}

$ perl grep.pl AAA XXX example.txt

  1 YYY
  2 first AAA
...
 14 blorflydick
 15 XXX
 16 fourth AAA

example.txt: '  5 second AAA'
example.txt: ' 10 third AAA'