my $b = "#CNAMESWE;*;";
my $zeichen = ";*;";

if($b=~/#(.+)$zeichen/){
  print  "gefunden: ",$1;
}