#   5    0    5    0    5    0 2
$p=shift;while(<>){print if/$p/}