#!/usr/bin/perl use strict; use warnings; local $/; my $html = ; (my $neu = $html) =~ s/<[^>]*>//gs; print $neu; __DATA__ Frosch Test
Die Bedingung 
4 < 5
ist wahr!