print 'hi'
>>>>
hi
#########################  1 ################################
for (1,2,3) { print if /\d/ }
>>>>
123
#########################  2 ################################
$_ = "xyxyx"; %j=(1,2); s/x/$j{print("z")}/ge; print $_
>>>>
zzz2y2y2
#########################  3 ################################
$_ = "xyxyx"; %j=(1,2); s/x/$j{print("z")}/g; print $_
>>>>
z2y2y2
#########################  4 ################################
split /a/,"bananarama"; print @_
>>>>
bnnrm
#########################  5 ################################
{ package P; sub x { print 'ya' } x }
>>>>
ya
#########################  6 ################################
@z = split /:/,"b:r:n:f:g"; print @z
>>>>
brnfg
#########################  7 ################################
sub AUTOLOAD { print 1 } &{"a"}()
>>>>
1
#########################  8 ################################
my $l = 3; $x = sub { print $l }; &$x
>>>>
3
#########################  9 ################################
my $i = 1;
my $foo = sub {$i = shift if @_};
print $i;
print &$foo(3),$i;
>>>>
133
######################### 10 ################################
$x="Cannot use"; print index $x, "Can"
>>>>
0
######################### 11 ################################
my $i=6; eval "print \$i\n"
>>>>
6
######################### 12 ################################
BEGIN { %h=(1=>2,3=>4) } print $h{3}
>>>>
4
######################### 13 ################################
open our $T,"a";
print 'ok';
>>>>
ok
######################### 14 ################################
print <DATA>
__DATA__
a
b
>>>>
a
b
######################### 15 ################################
BEGIN { tie @a, __PACKAGE__; sub TIEARRAY { bless{} } sub FETCH{1} }
print $a[1]
>>>>
1
######################### 16 ################################
my $i=3; print 1 .. $i
>>>>
123
######################### 17 ################################
my $h = { a=>3, b=>1 }; print sort {$h->{$a} <=> $h->{$b}} keys %$h
>>>>
ba
######################### 18 ################################
print sort { my $p; $b <=> $a } 1,4,3
>>>>
431
