$exp->log_file(\&formatoutput);
 $exp->send("$CAT /etc/passwd\n");
......
sub formatoutput {
  my $input = shift;
     
  chomp($input);
  $input =~ tr/\r//;
 
  if( ($input ne "$CAT /etc/passwd ") ||
      ($input ne '/bin/sh') ||
      ($input ne "/bin/sh") ||
      ($input ne '\$ ') ||
      ($input ne "\$ ") ||
      ($input ne '/') ||
      ($input ne "/") ||
      ($input ne 'bin/sh') ||
      ($input ne "bin/sh")
    )
   {
     print"${input}\n\n";
   }
}