my $searchfor = shift;
$/="%%%\n";