And in complete contrast...a homage to the great Joe Pasquale - guaranteed to annoy coders and non-coders alike :)

ANNOY: print "I know a song that'll ",
    map {"get on your nerves,\n"}(0..(2*(1-$_)))for(0..1);
print "and it goes like this....\n";
goto ANNOY;
[download]

I wonder if there's an iterative solution...<g>