if( $modulename =~ /^[Pp]od[s]?::(perl[a-z\d]*)/ ) { $Perldoc{$1} = $filename;