diff --git a/lib/Doxygen/Filter/Perl.pm b/lib/Doxygen/Filter/Perl.pm
index d887c4e..b91e68a 100644
--- a/lib/Doxygen/Filter/Perl.pm
+++ b/lib/Doxygen/Filter/Perl.pm
@@ -635,6 +635,8 @@ sub _PrintClassBlock
       $usedClass = $self->{'_hData'}->{'filename'}->{'shortname'};
       $usedClass =~ s/\.p[lm]$//;
       $usedClass =~ s/-/_/g;
+      $usedClass =~ s/\./_/g;
+      $usedClass =~ s/\+/_/g;
       $usedClass =~ s/^/main_/;
     }
     print "/** \@class $usedClass\n";