use strict; 
use warnings; 
use Readonly; 
Readonly::Scalar my $CONSECUTIVE => '0123456789'; 
while (<>){ 
    my( $numeric_string ) = /(\d+)/xms; 
    if ($numeric_string and $CONSECUTIVE =~ /$numeric_string/) { 
        print; 
    } 
}