Small tweak to perl semi-colon logic