perl: work around issue #185