#!/usr/bin/perl
#
use strict;

my $text =
  "Hier ist Meier, und hier ist Meyer.\n".
  "Die Namen hören sich gleich an, aber trotzdem\n".
  "können sie beide zu den Treffern gezählt werden.";

my @wort = split " ",$text;

print "Bitte geben sie das Suchwort ein: ";
chomp(my$input = <STDIN>);

$input = "Meyer" if ! $input;

my @treffer;
my $i = 0;

for ($input =~ s/y/i/g,$input =~ s/s/x/g) {
  foreach (@wort) {
    if ($input =~ /$_/i) {
      $treffer[$i] = "$_";
      $i++;
    }
  }
}

print "\nTreffer: @treffer\n";
<STDIN>;