my ($exp) = $var =~ m/(v\d{2}\.\d{2}-[a-z]\d{3})/;