perl 5.18 changes, only print in debug