#!/usr/bin/perl
#intwol.pl
$| = 1;
while (<>) {
#    printf STDERR "\nintwol: '$_'\n";
    s/([^\wäöÄÖ])/ $1/g;
    s/!/\\!/g;
    s/\s+/\n/g;
    print lc;
}