If you're unsure where the warning comes from, just run it through perl-5.10:

mlenz@wvbh074:~$ cat test.pl
use strict;
use warnings;
my $comment = '';
my $statement = '';
while ($statement !~ m{^(/\*.*\*/;)(.*)}s) { $statement .= <DATA> or d
+ie "Premature EOF\n"; }
print "Found type 1 comment: $1\n";

__DATA__
/* foo */;  stuff;
mlenz@wvbh074:~$ perl test.pl
Use of uninitialized value $1 in concatenation (.) or string at test.p
+l line 6, <DATA> line 1.
Found type 1 comment:
[download]

Here it tells you uninitialized value $1 explicitly.