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