%file2 = 'Source.txt' ;      # Name the file with source addresses
open(INFO, "<%file2" ) ;     # Open the file

##</code><code>##

$file2 = 'Source.txt' ;      # Name the file with source addresses
open(INFO, "<$file2" ) ;     # Open the file

##</code><code>##

open APPEND, ">>conversion.txt";
foreach $line1 (@lines1) {
   foreach $line2 (@lines2) {
      print APPEND $line2
         if $line2 =~ /$line1/;
   }
}
close APPEND;