#!/usr/local/bin/perl while (<>){ if ( $_ =~ /9\d{7}/ ) { print "$&\n" ; } }