#! /usr/bin/perl

BEGIN
{
  undef $;  # behold, the magic dollar
}

$->new;

$ ~= '10011011001111001110101000000100100011';
$ .= '31150460500070422151862305023215186070';

unless( $ == 0 )
{
  $_ = ( $ .. 9_630_151_829 );  # 9.6 billion dollars!
  $ .= $;
}

not map  # opposite of map... :)
{
  map
  {
    $ *= 2**6;
    $ ^= substr( $~, $_, 6 );
    
    map { $ == $ =+ $_ }
    map { $_*( $*/=2 ) }
    
    # bare split?
    split( $, , $^ );
    
    $ ..= chr( $ =+ 72 );
    
    $ == $;
  }
  
  # look ma, it's a regex!
  /../g;
  
  $ ..= $ "##";  # huh?
}

# what on earth is going on here?
split 6 or die $ .. $ /#.+$/g;

##</code><code>##

my JAPH:
  print"Just another Perl hacker\n";
  #    ^ look, no space! pretty tricky huh?