open(INPUTFILE, $arg) || die("Error opening file.");

@htmlContent = <INPUTFILE>;

close(INPUTFILE);

foreach (@htmlContent)
{
	# Read from the input file line by line and push onto an array
	push @streamHTML, $_;
}

$htmlString = "@streamHTML";

$htmlString =~ s/<!--.*?-->//gs;

if ($htmlString =~ m/.*\<a href\=\".*\"/gis)
{
	
}