#75470 + (50) 
<Amnesiac> there's something like awk in perl?