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

# neues CGI-Objekt anlegen
my $cgi = new CGI;

# Formulardaten einlesen
my $find = $cgi->param('such');
my $subs = $cgi->param('ersetz');
my $string = $cgi->param('eingabe');

# Schalter aus Formular auswerten
my $schalter = '';
$schalter .= 'i' if $cgi->param('schalter_grossklein');
$schalter .= 's' if $cgi->param('schalter_punkt_matcht_newline');

# Wenn einer der Schalter gesetzt ist, vor Regexp setzen
if ($schalter) {
    $find = "(?$schalter)" . $find;
}

# Wenn schalter_global, dann mit /g
if ($cgi->param('schalter_global')) {
    $string =~ s/$find/$subs/g;
} else {
    $string =~ s/$find/$subs/;
}

# Loesungsseite ausgeben
print $cgi->header, $cgi->start_html, 
      $cgi->h1("Lösung"), $cgi->p($string),
      $cgi->end_html;

# ENDE