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

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