#!/usr/bin/perl -l

my $para = "xyz-xyz-xyz-xyz-v09.11-e020xyz-xyz-xyz-";

if ($para =~ m/(?<part1>v\d{2}\.\d{2})-(?<part2>[a-z]\d{3})/) {
    print "$+{part1}, $+{part2}";   # v09.11, e020
}