#!/usr/bin/perl -w

foreach(unpack("C"x25,"\fA?\@\\/89\@2->\\x->6\\\n)+5->")){
print chr(oct(100+ eval "($_>100)?$_-100:chr($_)eq
qq(\/)?defined($_):chr($_)=~/\\\\/?-60:$_"));
}