Select Code to Download

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'

$ perle 'my $x = "1 12 123"; while ($x =~ /(?<w>\d+)/g) { say $+{w} }'
1
...
1
12
123

$ perle 'my $x = "1 12 123"; while ($x =~ /^(\d+)/g) { say $1 }'
1
...
123
$ perle 'my $x = "1 12 123"; while ($x =~ /^(\d+)$/g) { say $1 }'
$

$ perle 'my $x = "123"; $x =~ /(1)/; say $1'
1
...
1
$ perle 'my $x = "123"; $x =~ /(1)/; my $y = $1; say $y if $x =~ /2/'
1

$ perle 'my $x = "1 12 123"; while ($x =~ /(\d+)\s*/g) { say $1 }'
1
...
1
12
123

print "Weight:\n" unless $x=~/Gkg\./g;

$ perle '
    my $x = "AB";
...
    say $c;
'
1001

$ perle '
    my $x = "AB";
...
    say $c;
'
1