#!/usr/bin/perl -w
use strict;
use warnings;

my $var= <<'HTML_AUSGABE';
ein bisschen $(
und noch mehr $ (
und noch noch mehr $   (
";

print "your code here\n";

"
HTML_AUSGABE

# quote "$("
$var=~s/(\$\s*\()/\\$1/gs;
$var=~s/"/\\"/gs;

print eval(qq{"$var"});