print APPEND $line2
         if $line2 =~ /$line1/;