while ($abc =~ /find/gi) {
print "$&";
}