Help for this page

Select Code to Download


  1. or download this
    $s ='a123456789';
$p = 0; 
...
a(123456)(7)
a(1234567)(8)
a(12345678)(9)
  2. or download this
    $s ='a       ';
$p = 0; print "a($1)($2)" while ++$p and $s =~ m[^a( {$p})( )];
...
a(    )( )
a(     )( )
a(      )( )
  3. or download this
    $s ='a       ';
$s =~ m[^a(.+?)(.)(?{ print "a($1)($2)" })(?!)];
...
a(    )( )
a(     )( )
a(      )( )