#! /usr/local/bin/perl use strict; use HTML::Restrict; my $value = qq| Dies ist der Titel

Hier kommt der Inhalt

|; my $hr = HTML::Restrict->new(); my $value = $hr->process($value); print "Ergebnis: ".$value."\n\n";