Select Code to Download

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

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