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