Select Code to Download

#!/usr/bin/perl
use strict;
...

$count = () = $a =~ /\d+/g ;
print "$count\n";

1
789 123 456 789
4
5