Untitled
public text v1 · immutable#!/usr/bin/perl -w
use strict; use warnings;
foreach my $filename (<*.txt>)
{
open(my $fh, $filename);
my $line_no = 0;
while (<$fh>)
{
++$line_no;
if (/[A-Za-z]{5}-[A-Za-z]{3}/)
{
print "$filename $line_no: $_";
}
}
close $fh;
}