if($entry =~ /^\s*?#/){
  my $zeile(split(/\r?\n/,$entry))
{