Untitled

#!/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;
}