my $n = ($v =~ /(\d+)/)[0];