BEGIN {
	use overload;
	use Data::Dumper;
	overload::constant 'q' => sub {
		print Dumper \@_;
	};
}
qq(echo aaa);
qx(echo aaa);
##</code><code>##

$VAR1 = [
          'echo aaa',
          'echo aaa',
          'qq'
        ];
$VAR1 = [
          'echo aaa',
          'echo aaa',
          'qq'
        ];