#!/usr/bin/perl

my $newstr = '';
open (FH, "test.txt") || die "Could not open file.\n";
while(<FH>)
{
	$newstr = $newstr.$_;
	print "!!\n" if ($newstr =~ /^-+\nPerl Progress\n-+\n\s\ndannyd\@cli>\s$/m);
}

close (FH);