#!perl -pl $_=grep$'>>$_,//..63