Help for this page
use Regexp::Common qw /balanced/; ... print "$` \t| $1 \t| $'\n"; }
aa<% | <% %> | bb ... aa | <% <% %> %> | bb aa | <% >% %> | bb