Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$sample =~ s/(\d)(\d)/push(@odds_vs_evens,[$1,$2])/eg;

print $_->[0].'->'.$_->[1]."\n" for @odds_vs_evens;
  2. or download this
    0->4
1->4
...
9->4
0->4
1->4
  3. or download this
    my $sample = "041424344454647484940414";
my %odds_vs_evens = $sample =~ /(\d)(\d)/g;