#! /usr/bin/perl use strict; use warnings; my $html = qq~ PartyPeople-Inside.de
dsf
das ist ein test
~; my ($var) = $html =~ m!
(.*?)
!s; print $var,"\n";