sub R{s/.//;$_.=$&}sub S{unshift@b,R$_}
$_="   I love you!  ";S;s/love/need/;S;s/need/want/;S;$,="\n";
for(1..48){push@b,shift@b;R$_ for@b;print@b,"\n"}