Select Code to Download

use constant FOOBAR => "a" x 3;

BEGIN { my $x = "a" x 3; *::FOOBAR = sub () { $x } }

$ perl -MO=Concise,BEGIN,-main -e'use constant FOOBAR => "a" x 3; prin
+t FOOBAR' | grep -C 3 '"a'
14             <$> const[PV "constant"] sM ->15
...
4j       <0> pushmark s ->4k
4k       <$> const[PV "aaa"] s ->4l

$ perl -MO=Concise -e'use constant FOOBAR => scalar <STDIN>; print FOO
+BAR'
abc
...
3        <0> pushmark s ->4
4        <$> const[PV "abc\n"] s ->5     # <---