open (FILE, 'acrolist.txt');
my @lines = <FILE>;
my @data;
foreach my $line (@lines) {
	if ( $line =~ /$teststring/ ) {
		print "You have a MATCH: $1\n";
                push @data, $line;
	}
}
print @data;