#!/lang/perl -n
# this does an fgrep FOO$, no options supported
BEGIN {$Pat=shift(@ARGV)."\n"; $L=length($Pat)}
substr($_,-$L) eq $Pat and print;