my $searchfor = shift;
$/="%%%\n"
open(IN, 'datafile.txt') or die "Could not open: $!\n";
while (<IN>) {
  print if /\Q$searchfor\E/i;
}