#!/usr/local/bin/perl
#
###Enter name of file to split, save in scalar, chop nl
print "Enter name of file to split:";
$file2split = <STDIN>;
chop $file2split;
#
### open file2split and assisgn handle name of "DATA".
open(DATA, $file2split);

### Read DATA into an array called lines.
@lines = <DATA>;

foreach $dataline (@lines)
{
   if ( $dataline =~ /^130,/)
   {
      print "$dataline";
   }
   else
   {
   }
}


### close DATA
close(DATA);