you can also use a here document. something like:

my $variable = 1;
<<Comment;
la la la
comments comments everywhere
Comment
print $variable;
[download]

jeff