tweaks to perl output