Final bit of perl rename