#!/usr/bin/perl
# need 5.010 to use say; instead of print;
use 5.010;
# http://c...content-available-to-author-only...e.com/questions/91797/hate-love-conundrum

#@_=(hat,lov);$x.=" I ".$_[$_%2]."e that"for 1..<>;$_=$x;s/that$/it./;say

for$x(1..<>){$_.=' I '.($x%2?hat:lov).'e that'}s/\w+$/it./;say