my $str = "string to be matched";
opendir(TEMP,'/ade/nachekur_view2/oracle/work/hosts/brhost3/br/xcr')or die "cannot open dude \n" ;
my @FILES=readdir TEMP;
my $fi = scalar (@FILES);
for (my $k = 0; $k < $fi ; $k++)
  {
     open (F,$FILES[$k]) or die " rey ledhu ra \n";
     my @lines = <F>;
     for (@lines) {
          if ($_ =~ m/$str/) {
             print "$_\n";
             print "Lined that matched $str in $FILES[$k] \n";
             last ;
           }
       }

    }
closedir(TEMP);
}