perl -ne "BEGIN{ $/ = '-' x 72; $re = shift } print qq($r\n) if (($r) = split) && /$re/" 2.5996485