Help for this page

Select Code to Download

Select or download this

$content = "<head><body blah></body><foo></foo></head>";
$content =~ m[^(<(.+?)>.*?</\2>)$];
print $1."\n";

Select or download this

$content = "<head><body blah></body><foo></foo></head>";
while ($content =~ m[(<.+?>)]g) {
    print $1."\n";
}