#!/usr/bin/perl

$err =  q|}"6ft.(&^)+@<B#,/JK2=>?@7$eJp.|;

sub getErr {
  my $err = shift;
  eval "$err";
  return $@;
}

# Lets get a better idea of what it looks like
#$@ =~ s/\n/N/g;
$@ = getErr($err);
#print "Error: '$@'\n";
@chars = split//,$err.$@;
for($i=1;$i<27;$i++) {
  print $chars[ord($chars[$i])-32+25];
}

# Remember, we want "Just another perl hacker.\n"
# We have "Missing right curly or square bracket at (eval 1) line 2, at end of
# line\nsyntax error at (eval 1) line 2, at EOF\n'
# We are only missing J and .

@chars = split//,$err.$@;

#$i = 0;
#for $c (@chars) {
#  print $i++ . " $c\n";
#}

#       J  u  s  t  _  a  n  o  t  h  e  r  _  p  e  r  l  _  h  a  c  k  e  r  
@msg = (2,22,70,84,14, 8, 6,62, 9,11,32,28,34, 3,12,15,42,43,18,29,30,31,32,23,4,69);
for$i(@msg){print$chars[$i+25]}
$out = '';
for$i(@msg){
$out .= chr($i + 32);
}
print "str: '$out'\n";

print "----------\n";

$/='}"6ft.(&^)+@<B#,/JK2=>?@7$eJp.',$"
=eval$/,@/=split//,$/.$@,$/=0;while($/
<26){$_.=$/[ord($/[++$/])-7]}print