Select Code to Download

use strict;
use warnings;
...
    ############   # or  print "$line";
    if ($templine =~ /(ABC)/) {print "$1 = the line (2)\n";}
}

ABC in the first line
ABC = the line (1)
but not the second
ABC = the line (2)