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

#@htmlContent = <INPUTFILE>;

while(<INPUTFILE>)
{
   push @streamHTML, $_;
}

#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)
{
	
}