Select Code to Download

          sub I;sub put;sub remove;                                  
I put "the J in RAPH" and remove "the r";                            
          sub I{print "\n";}sub put{($letter,$word)=$_[0]=~m/^the\s(.
          )\sin\s.(.+)$/ix;print $letter.$word;return 0;}sub remove{}