perl -wle'sub {"foo"}->(), $s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; return @rv[0 .. $#rv]; }->("abc"); print $s'