my $db_path = '';
for (keys %INC) {
    if (/parse/i) {
        $db_path = $INC{$_};
        $db_path =~ s/parse\.pm$/db\//i;
        last;
    }
}