#!/usr/bin/env perl
eval {
    sub test {
        my $buffer =<<"/\s*END/";
        Eins
        Zwei
        END

        return $buffer;
    }
    print test();
};

if($@) {
    print $@;
}

print "\ndone\n";
__END__
Can't find string terminator "/\s*END/" anywhere before EOF at test.pl line 3.