my ($pn) = $prod m/<RegulärerAusdruck>/;