I have a little script that finds the line which contains a six digit number begining with 1 or greater.&nbsp; I know that $_ represents the line,&nbsp; however, I am having trouble figuring out how to save that number once it's found (without everything else in the line).    #!/usr/bin/perl -w    @ARGV = "/home/richard/test/out.txt";  while (&lt;&gt;) {  &nbsp;&nbsp;&nbsp; if ( /\b[123456789][0-9][0-9][0-9][0-9][0-9]\b/ ) {  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "Found\n" . $_ . "\n";  &nbsp;&nbsp;&nbsp; }  }    Any help would be greatly appreciated.    Thanks,    Richard   A people that values its privileges above its principles soon loses both.  -Dwight D. Eisenhower.