my $string = "Dies ist ein <title>Test</title>";
my $start = index($string,'<title>') + 7;
my $title = substr($string,$start,(index($string,'</title>',$start)-$start+1));