#! usr/bin/perl
use strict;
use warnings;
my $line;
my $str;
use diagnostics;
open my  $file_one,'<','F1' or die "unable to open";
while(defined($line=<$file_one>))
 {
   chomp($line);
 if ($line =~m/(\*\*)/)
     { 
        $str = $line ;
       # print " $str  \n";
     }

   else
     { open my $file2,'<','F2' or die "unable to open ";
       while(defined(my $line2=<$file2>))
       { 
           if($line2=~m/$line/)
           {
            print " line : $str  line2: $line2\n";
           
           }

       }
        close($file2);
    
     }
 }