Help for this page

Select Code to Download


  1. or download this
    print $1 if /^(\d)/g and /\G(\d{$1})/g
  2. or download this
    print unpack "A/A*", $_
  3. or download this
    my $num = unpack "A/A*", $_;
print $num if length($num) and $num !~ /\D/;