#! /usr/bin/perl
use strict;
use warnings;
my $text = 'abc;def;ghi';
my $such = 'DEF';

# finde string $such in $text ohne Ruecksicht auf gross/KLEIN 
if ( index( lc($text), lc($such), 0 ) >= 0 ) {
  print "Treffer";
}
else {
  print "kein Treffer";
}