Perl magic!

Show us some Perl magic, /prog/!

^$%$#%$^^^^$/.+{3}/g=~shift@@@

>>2
Can't run it, did you write it with use strict;?

>>3
It's perl 6

$ perl < /dev/random

$_='83>K8,>M';y?&-:>-[?`-t -0?;qx^$_^

#!/usr/bin/perl
use warnings;
use strict;

use integer;

@ARGV == 2 or die "Usage: $0 INTEGER INTEGER\n";

sub {
    my $r = shift;

    my $a = 0 + shift;
    my $b = 0 + shift;

    @_ = (
        sub {
            my $f = shift;
            @_ = (
                sub {
                    my $f = shift;
                    @_ = (
                        sub {
                            my $f = shift;
                            @_ = (
                                sub {
                                    my $n = shift;
                                    print "$n\n";
                                    @_ = 0;
                                    goto &$r;
                                },
                                $b
                            );
                            goto &$f;
                        },
                        $a
                    );
                    goto &$f;
                },
                sub {
                    my $r = shift;
                    my $f = shift;
                    @_ = sub {
                        my $r = shift;
                        my $x = shift;
                        @_ = sub {
                            my $r = shift;
                            my $y = shift;
#                           print "> $x + $y\n";
                            if ($x && $y) {
                                @_ = (
                                    sub {
                                        my $f = shift;
                                        @_ = ($r, ($x & $y) << 1);
                                        goto &$f;
                                    },
                                    $x ^ $y
                                );
                                goto &$f;
                            }
                            @_ = $x ^ $y;
                            goto &$r;
                        };
                        goto &$r;
                    };
                    goto &$r;
                }
            );
            goto &$f;
        },
        sub {
            my $r = shift;
            my $y = shift;
            @_ = sub {
                my $r = shift;
                my $f = shift;
                @_ = sub {
                    my $r = shift;
                    my $x = shift;
                    @_ = (
                        sub {
                            my $f = shift;
                            @_ = ($r, $x);
                            goto &$f;
                        },
                        sub {
                            my $r = shift;
                            my $x = shift;
                            @_ = (
                                sub {
                                    my $g = shift;
                                    @_ = (
                                        sub {
                                            my $f = shift;
                                            @_ = ($r, $x);
                                            goto &$f;
                                        },
                                        $f
                                    );
                                    goto &$g;
                                },
                                $y
                            );
                            goto &$y;
                        }
                    );
                    goto &$f;
                };
                goto &$r;
            };
            goto &$r;
        }
    );

    goto & {
        sub {
            my $r = shift;
            my $f = shift;
            @_ = ($r, $f);
            goto &$f;
        }
    };

}->(sub { exit $_[0] }, @ARGV)

>>7

sub {
shift shift shift shift shift shift shift shift shift shift
shift shift shift shift shift shift shift shift shift shift
shift shift shift shift shift shift shift shift shift shift
shift shift shift shift shift shift shift shift shift shift shift shift
shift shift shift shift
shift
shift shift
shift shift shift shift shift shift shift shift shift shift
shift shift shift shift shift shift
shift shift
shift
}
VALID PERL CODE

>>4
Lies. Where's the unicode, then?

>>5
</dev/random perl

/dev/kmem or gtfo

sub is_leap_year($){ s/00$//,return!($_%4)for@_ }

return!

All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy