#!perl.exe

use strict;
use warnings;
use Games::Dissociate;

while (my $input=<>) { #liest von Eingabezeile ein
  # gibt den verwurschtelten Satz wieder aus
  print dissociate( $input );
}

perl wurschtel.pl