Help for this page

Select Code to Download


  1. or download this
    my $s = 'A3xyz45M98AB7Z9';
local $, = ":";
print split /(?<=\d)(?=\D)/, $s;
  2. or download this
    my $s = 'A3xyz45M98AB7Z9';
local $" = ":";
print "@{[split /(?<=\d)(?=\D)/, $s]}";