my $string = "Dies ist ein <title>Test</title>";
my $title = $string =~ m~<title>(.*?)</title>~;