use strict; use warnings;

sub I{print@_,chr(0x0a)}sub remove{}sub
put{shift=~m/^\w+\s(.)\s\w+\s.(.+)/ix;}

I put "the J in RAPH" and remove "the r"