#!/usr/bin/perl -w
# inject_random_space.pl - Don Yang (uguu.org)
#
# 09/19/08

use strict;

while(my $input = <>)
{
   my $output = "";
   foreach my $c (unpack 'C*', $input)
   {
      $output .= chr($c);
      if( rand() < 0.1 )
      {
         $output .= substr(" \t\n", int(rand 3), 1);
      }
   }
   print $output;
}