Select Code to Download

########     this one fails to print   #######
...

if($templine =~ /(ABC)/) {print " xxx \n xx";}

??????????????????????????????????????????????????????
#      This first one finds the matches of ABC
...
        if($templine =~ /(ABC)/){print "$1 = the line";}        

      }