Help for this page

Select Code to Download


  1. or download this
    $a="aaaa";
@a=$a=~m/aa/g;
print join ( "-", @a );
  2. or download this
    aa-aa
  3. or download this
    $regexp="a{2}";
$a="aaaa";
@a=$a=~m/(?=($regexp))./g;
print join ( "-", @a );