use strict;
use warnings;

my $c1 = '
/* Kommentar */

/* Noch
ein Kommentar XXX */
';

my $c2 = '
/* Kommentar */

XXX';

my $re = qr#^(?:(?!/\*).|/\*.*?\*/)*XXX#s;

print "XXX kommt in c1 vor\n" if $c1 =~ $re;
print "XXX kommt in c2 vor\n" if $c2 =~ $re;