my @pvcs = $interface =~ /(pvc.*?cbr\s*\d+)/sg;