Help for this page

Select Code to Download


  1. or download this
    13:46 >perl -wMstrict -MData::Dump -E "my $foo = '123456789'; my @w1 =
+ ($foo =~ /(?=(\d{3}))/g); dd \@w1;"
[123, 234, 345, 456, 567, 678, 789]

13:46 >
  2. or download this
    17:56 >perl -wMstrict -MData::Dump -E "my $foo = '123456789012345'; my
+ @w1 = ($foo =~ /(?=(\d{3})).{2}/g); dd \@w1;"
[123, 345, 567, 789, 901, 123, 345]

18:09 >