: # use perl                                  -*- mode: Perl; -*-
        eval 'exec perl -S $0 "$@"'
                if $runnning_under_some_shell;

$re = shift;

while (<>) {
    if (/^\S*\.(\S*)\s/) {
	print if $1 =~ /$re/;
    }
    elsif (/^(\S*)\s/) {
	print if $1 =~ /$re/;
    }
}
