#Mumps - 102 Bytes

Golfed script:

S A="qwertyuiopasdfghjklzxcvbnm",B=0 R P F I=1:1:$L(A) S Q=$E(A,I) W:B Q," " X:"qpl"[Q "W !" S:Q=P B=1 

Ungolfed and commented:

 S A="qwertyuiopasdfghjklzxcvbnm" ; Need the qwerty order S B=0 ; boolean flag for printing, default to false. R P ; read from stdin into P F I=1:1:$L(A) D ; Count I from 1 to length of qwerty variable; do all of the following: . S Q=$E(A,I) ; Extract 1 letter (at position I) from A and save in Q. . W:B Q," " ; If our print flag (B) is true, print the letter in Q & a space. . X:"qpl"[Q "W !" ; If Q is q, p or l, write a cr/lf . S:Q=P B=1 ; If Q == P (stdin) change our print flag from false to true. 

The rule allowing extra newlines saved me almost 10 bytes...

Mumps - 102 Bytes

Golfed script:

S A="qwertyuiopasdfghjklzxcvbnm",B=0 R P F I=1:1:$L(A) S Q=$E(A,I) W:B Q," " X:"qpl"[Q "W !" S:Q=P B=1 

Ungolfed and commented:

 S A="qwertyuiopasdfghjklzxcvbnm" ; Need the qwerty order S B=0 ; boolean flag for printing, default to false. R P ; read from stdin into P F I=1:1:$L(A) D ; Count I from 1 to length of qwerty variable; do all of the following: . S Q=$E(A,I) ; Extract 1 letter (at position I) from A and save in Q. . W:B Q," " ; If our print flag (B) is true, print the letter in Q & a space. . X:"qpl"[Q "W !" ; If Q is q, p or l, write a cr/lf . S:Q=P B=1 ; If Q == P (stdin) change our print flag from false to true. 

The rule allowing extra newlines saved me almost 10 bytes...