open(FILE, "<$html") || error("$html konnte nicht geöffnet werden.");
	while(<FILE>){
		if($_ =~ /\<tt\>/){
			push(@input,split('.*\<tt\>',"$_"));		
		}
	}
close(FILE);

foreach(@input){
	if($_ =~ /\<.tt\>/){
		push(@result,split('\<.tt\>.*',"$_"));
	}
}

print"@result";