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