Select Code to Download

#!/usr/bin/perl
use strict;
...
my @a = $a =~ /\d+/g ;
$count = @a;
print "$count\n";

1
4
5