Select Code to Download

$ perl -le 'eval q{ print ++$x }; eval q{ print ++$x }'
1
2

CHAIN<%=$chain_num%>_EN [<%=$lsb%>:<%=$lsb++%>] = 1'h0;
<% use File::Spec::Functions qw/catfile/ %>

<%$lsb++%>
<% for my $x (0..2) { %>
...
<% } warn "test warning" %>
$this is not $Perl
<% # note catfile() not available here %>

#!/usr/bin/env perl
use warnings;
...

sub perlstr { Data::Dumper->new([''.shift])
    ->Terse(1)->Indent(0)->Useqq(1)->Dump }

>>>>> Output:
CHAIN_EN [:0] = 1'h0;
...
Hello, World Nr. 2 (LSB=1)
$this is not $Perl
<<<<<