#Content auf einzelne Linien splitten
for $linecontent (split(/\n/, $content)) {
	
	#Prüfung, ob Chattext abgearbeitet wurde	
	if ($linecontent =~ /^<a name\=\"bancor\"><\/a>$/) {
		$read = 2;
	}
	
	#Abarbeiten des Chattextes
	if ($read == 1) {
		for $actchatcontent (split(/<p/, $linecontent)) {
			if ($actchatcontent =~ /^(.*class.*)<span id\=\"container\"><\/span>$/) {
				push(@newdata, $1);
			} elsif ($actchatcontent =~ /^(.*class.*)$/) {
				push(@newdata, $1);
			}
		}
	}
	
	#Prüfung, ob Chattext erreicht wurde
	if ($linecontent =~ /^<body.*class\=\"framechattextbg\" id\=\"container2\".*>$/) {
		$read = 1;
	}
}	

for $i (0..$#olddata) {
	@before = @olddata[$i..$#olddata];
	@after = @newdata[0..$#olddata-$i];	
	print "Before: @before\nAfter: @after\n";	
	if (@before ~~ @after) {
		print "#########MATCHED#########";
		$testmatched = 1;
		last;
	}
}