Select Code to Download

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

#!/usr/bin/perl

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