alias perlo='perl -Mstrict -Mwarnings -Mautodie=:all'
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'
alias perlb='perl -MO=Deparse,-p -e'
alias perlr='perl -MO=Deparse -e'

##</code><code>##

$ perlo -E 'my $x; $x = 41; ++$x; say $x'
42
$ perle 'my $x; $x = 41; ++$x; say $x'
42
$ perlb 'my $x; $x = 41; ++$x; say $x'
my($x);
($x = 41);
(++$x);
$x->say;
-e syntax OK
$ perlr 'my $x; $x = 41; ++$x; say $x'
my $x;
$x = 41;
++$x;
$x->say;
-e syntax OK

##</code><code>##

perls () {
    eval "echo \`perl -T -Mstrict -Mwarnings -Mautodie=:all -E '
        my \$ev = eval \"$@\";
        say defined \$ev ? \"\$ev\" : \"$@\";
    '\`"
}

##</code><code>##

$ perls 1 + 1
2
$ perls 67 / 33
2.03030303030303
$ perls \(67 / 33\) + 1
3.03030303030303
$ perls '(67 / 33) + 1'
3.03030303030303
$ perls 'my \\\$x; \\\$x = 41; ++\\\$x'
42
$ perls `perle 'my $x; $x = 41; ++$x; say $x'`
42
$ perle 'my $x; $x = 41; ++$x; say $x'
42
$ perls Hello, world!
Hello, world!