#   5    0    5    0    5 7
$p=shift;print grep/$p/,<>;