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

##</code><code>##

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