my @rv = $_[0] =~ /^([0-9]+)$/;
return @rv[0 .. $#rv];