Help for this page

Select Code to Download


  1. or download this
    $_ = "Happy Joy 002245:Dubloons 002256:hats 034523:paper clips 232344:
+pants 233394";

my $first_number = ( /(\d+)/ );

print "$first_number\n";
  2. or download this
    my @numbers = ( /(\d+)/g );
print join $/, @numbers, "";