$content = ""; $content =~ m[^(<(.+?)>.*?)$]; print $1."\n";