>>284
sub match {
　　my($str, $match, $flag) = @_;
　　my $re = $flag
　　　　? qr/ (?<=<).*(?=>) | ^.*(?=>) | (?<=<).*\z /x
　　　　: qr/ (?<=<).*(?=>) /x
　　;
　　if (my @str = $str =~ /$re/g) {
　　　　push @{$match}, @str;
　　　　match($_, $match, 1) for @str;
　　}
}
for (qw(
　　a<b>c<d>e　　a>b<c>d<e　　a<b<c<d<e
　　a>b>c>d>e　　<a>b<c<d>e>f<g>
)) {
　　my @match;
　　match($_ => \@match);
　　print join(' / ', @match), "\n";
}

Perlでリクに答えるスクリプトを作るスレ
http://pc8.2ch.net/test/read.cgi/tech/1086143976/

■こんなCGI作ってください■　Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/