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