my ($digits) = $vmstr =~ /-(\d\d)$/; 

as

my ($digits) = $vmstr =~ /-(\d+)$/;