perl grep

#!/usr/bin/perl -w
use strict;
print "Enter regexp: ";
chomp (my $S = );
while (<>) {
if (/$S/) {
print;
}
}

Чтобы "подсветить найденное выражение можно изменить вот так

#!/usr/bin/perl -w
use strict;
print "Enter regexp: ";
chomp (my $S = );
while (<>) {
if (/$S/) {
chomp;
print "$`<$&>$'\n";
}
}