while ( <> ) { s/priority /priority\n/; print; } #### perl -i~ -pe 's/priority /priority\n/'