my $undollared = $Qlib_dir;
$undollared =~ s/\$/\\\$/g;
$undollared =~ s/\-/\\\-/g;
$result =~ s/$undollared/pod::/g;
my $undollared = $Qlib_dir;
$undollared =~ s/\$/\\\$/g;
$undollared =~ s/\-/\\\-/g;
$result =~ s/$undollared/pod::/g;
my $count = 0;
my @result = split(/,/,$result);
my @compare = split(/,/,$compare);
my $count = 0;
my @result = split(/,/,$result);
my @compare = split(/,/,$compare);