my $toFind="String";
foreach $line (@list){

$_=$line;

if(m/$line1/i){
print "$line\n";
}
}