
#!/usr/bin/perl

use CGI qw(:standard);

use CGI qw/:standard/;
use CGI;

$query=CGI->new();
$text=$query->param('text');

print header();

if ($text eq "")
        {
        print "Bitte gib einen Text ein!";
print <
         

        $st
        


TXT
        }
else
{
print " Auf (Oscht)Tirolerisch: 
 
 
 ";
%conv=(
"\n", "
",
"st", "scht",
"s[\\W\\s]", "sch "
);

foreach $key (keys %conv)
        {
         $text =~ s/$key/$conv{$key}/g;
        }

print $text;