my $abc = "ich finde nichts";
while ($abc =~ /(find)/gi) {
my $var = $1;
$var =~ s/i//;
print $var;
}