#!/usr/bin/perl

use strict;
use warnings;

$_ = 'cat';

s/(.)/my $t = $1; $t .= $1 while 0.95 > rand; $t/ge;

print "$_\n";

__END__
cccccccccccccaaaaat