#!/lang/perl -n
# this does an fgrep -v ^FOO
BEGIN {$Pat=shift; $L=length($Pat)}
substr($_,0,$L) eq $Pat or print;