January 2, 2013 14:09
diff --git a/stdin.txt b/stdin.txt
 #!/usr/bin/perl

 use strict;
 use warnings;

 my @arr = ("<f><e><e>stuff</e></e></f>" =~ /<f>(<e>((?1)|[^<>]+)<\/e>)<\/f>/g);

 print join("\n", @arr);
 print "\n";
	#!/usr/bin/perl

	use strict;
	use warnings;

	my @arr = ("<f><e><e>stuff</e></e></f>" =~ /<f>(<e>((?1)\|[^<>]+)<\/e>)<\/f>/g);

	print join("\n", @arr);
	print "\n";