--------------------------------------------------------------
Perl Progress
--------------------------------------------------------------
 
dannyd@cli> 

##</code><code>##

#!/usr/bin/perl

open (FH, "test.txt");
while (<FH>)
{
	print "Match!!\n" if ($_ =~ /^-+\nBG/ms);
}
close (FH);