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

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