use strict;
my $toFind="String";

while(<DATA>){
	my $line=$_;
	chomp($line);	
	if($line=~m/\b$toFind(?=[^\w\.]+|$)/i){
		print "$line\n";
	}
}