Thanks ikegami!
That worked perfectly, sorry I'm fairly new to perl, so finding things like this is quite difficult.