#!usr/bin/perl -w
use strict;
srand;
my @line;
my $index;
my $particle;
my @vocabulary = ("uh", "er", "ummm", "ahhhh", "rhubarb");
while(<>) {
   @line = split (/ /,$_);
   foreach(@line) {
      $index = rand 5;
      $particle = $vocabulary[$index];
      s/.{1,}/$particle/g;
   }
   $_ = join (' ',@line);
   print;
}