#!perl -pal ($b=$'||<>)=~$"while($_=grep$b!~s/^$_\s//,@F)>49