[Omaha.pm] find "000" in position 70-72 in text files

[Jay Hannah]

Another Perl quicky...

j


my @files = glob "*dly";
foreach my $file (@files) {
   open (IN, $file);
   while (<IN>) {
      if (/^.{69}000/) {
         print "$file: $_";
      }
   }
   close IN;
}