$db = "textfile.txt";
open(DATA, "$db") or die "cant open: $!\n";
@dat = (<DATA>);
close(DATA);
open(DATA, "$db") || die "cant open: $!\n";
                                        
foreach $line (@dat)
{
	if($line =~ /87/g)  #I tried this just to see if I could fetch any data in my text file
	{
		print "test\n";
	}
}
close(DATA);