#!/afs/athena/contrib/perl/p
$="\010";
$f="";
print("foo $f$f$f$f bar$");
$="\112";$;="\165";$*="\163";$^="\164";$#="\141";$&="\145";$@="\143";$`="\150";$~="\157";$__="\156";$="\162";$="\160";$="\154";$,="\153";$="\137";
$x = $ x 27;
#$x.=$.$;.$*.$^.$.$#.$__.$~.$^.$`.$&.$.$.$.$&.$.$.$.$`.$#.$@.$,.$&.$;&$x;
