use strict;
use warnings;

# Wortpaare einlesen
my %change = ();
my ($in, $out);
while (<DATA>) 
  {
  chomp;
  my ($in, $out) = split /\s*:\s*/;
  unless ($in && $out)
    {
    printf STDERR "Fehler '$in' : '$out' at line \$.\n"; 
    next;
    }
  $change{$in} = $out;
  }

# Program ist ein Filter  
while (<>) 
  {
  my $i = 0;
  s/^(\s+)// && print $1;       # fuehrende Leerzeichen beibehalten
  for (split /(\s+)/, $_, -1)   # nur ein Ergebnis
    {
    if ($i++ & 1)               # ungerade --> Lerraum
      { print $_; next; }
    print ($change{$_} || $_);  # gerade --> Wort
    }
  }

__END__
Wörter        : Blabla
schauen       : kucken