Help for this page

Select Code to Download


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