#!/usr/bin/perl

use strict;

my $teststring = "Hello CPLD this is just a test that I have created now.\n";
print $teststring;


my $file  = "./acrolist.txt";
open (FILE,$file) || die "Can't open file \"$file\".\n";
my @raw_data=<FILE>;
my $rawdata;
my @newrawdata = ();
my $newrawdata;
print @raw_data;

foreach $rawdata(@raw_data)
{
        if ($teststring =~ m/$rawdata/)
        {
                print "You have a MATCH!\n";
                #print $1;
                $newrawdata[@newrawdata] = $rawdata;
        }
}
print @newrawdata;