use strict;
use warnings;
<<'COMMENT';
$foo = 'bar';
COMMENT

##</code><code>##

Useless use of a constant in void context at temp.pl line 3.

##</code><code>##

use strict;
use warnings;
{
no warnings;
<<'COMMENT';
$foo = 'bar';
COMMENT
}