#!/usr/local/bin/perl -w
use strict;
use Data::Dumper;

my $in = <<DATA
bla bla
        Fehler: Falsches Passwort       </td>
ende.
DATA
    ;

if ($in =~/Fehler: Falsches Passwort/si) {
  print "found.\n";
}