Select Code to Download

perl -E 'say "match" if 0.0 =~ m/^\d+/'

perl -E 'my @match = 0.0 =~ m/^(\d+)$/; say "@match";'