my $str = <<"END";
Ein bisschen Text und @{[ 'perlcode' ]}.
END

print $str; # gibt Ein bisschen Text und perlcode. aus