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

my $testwert = 'stattauto';
if ($testwert =~ /stattauto/i){
  print " -> uebereinstimmung -> richtig\n";
} else {
  print " -> KEINE uebereinstimmung -> falsch\n";
}
print "\n";
$testwert = 'stattauto luebeck';
if ($testwert =~ /stattauto/i){
  print " -> uebereinstimmung -> falsch\n";
} else {
  print " -> KEINE uebereinstimmung -> richtig\n";
}