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

my $beg = 'Test';
my $such = 'test';
my $gross_klein = 0;
if ($beg =~ m/$such/(!$gross_klein ? 'i' : '')) {print "ja\n"}