while(<>){ if(/^address/){ s/ address/\naddress/g; print; } else { print; } }