Help for this page

Select Code to Download


  1. or download this
    my $string = "a(b)cd(e)f"; 
my @parts = split /(?=.{5}$)/, $string';
  2. or download this
    local $_ = "a(b)cd(e)f"; 
my @parts = split /.{5}/g;
  3. or download this
    local $_ = "a(b)cd(e)f"; 
my @parts = /.{5}/g;