diff --git a/lib/Doxygen/Filter/Perl.pm b/lib/Doxygen/Filter/Perl.pm
index d887c4e..c4de518 100644
--- a/lib/Doxygen/Filter/Perl.pm
+++ b/lib/Doxygen/Filter/Perl.pm
@@ -161,7 +161,7 @@ sub ReadFile
     # Replace forward slash with a black slash
     $sFilename =~ s/\\/\//g;
     # Remove windows style drive letters
-    $sFilename =~ s/^.*://;
+    $sFilename =~ s/^.://;
  
     # Lets grab just the file name not the full path for the short name
     $sFilename =~ /^(.*\/)*(.*)$/;