fix bash syntax in perl ;(