Help for this page
# 5 0 5 0 5 7 $p=shift;print grep/$p/,<>;
# 5 0 5 0 5 0 2 $p=shift;while(<>){print if/$p/}