Whilst others debate the aesthetics of performance--I, being of simpler ilk, believe that two or three strip teases are better than one.

my @variety = ( 0, # because sometimes you lose
                sub{s/t//ig},
                sub{tr/tT//d},
                sub{s/((.*){10})t/$1/i},
              );

while (my $spice = int(rand($#variety + 1))) {
  $variety[$spice]->(my $life);
}
[download]

--
May the Source be with you.

You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.