Help for this page

Select Code to Download


  1. or download this
    $a="a    ";

foreach (1..(length $a)) {
  print "a(".$1.")(".$2.")\n" if ( $a =~ m/^a( {$_})( )/ ) ;
}
  2. or download this
    a( )( )
a(  )( )
a(   )( )
  3. or download this
    $a="a    ";

while ( $a =~ m/$regexp/ ) {     # or m//g, m//gc, ...
  print "a(".$1.")(".$2.")\n";
}