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

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

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

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