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);
}