my $vers = ($vers =~ s/\d+/\d+/);