Help for this page

Select Code to Download


  1. or download this
    my $string = q/000000000000022102840002210284/;
my( @numbers ) = unpack "a10a10a10", $string;
print "$_\n" foreach @numbers;
  2. or download this
    my $string = q/000000000000022102840002210284/;
my( @numbers ) = $string =~ m/(\d{10})(\d{10})(\d{10})/;
print "$_\n" foreach @numbers;