@ARGV=map{$_.=q=/==>s(0)(\0)g=>$x=
sub {$x=shift,join pod,pop,pop,q,,};
!s||
0/

perl
faq
2.0

|x||(@_=split/0/),$_=&$x;
s$\$x$$g;s&\0&0&g;-e$_?$_:qw::}@INC;/azi/?
(<>=>$#=<>=>$#=~s#\s#$x#g=>print$#=~/(.+)is/s):$#
while<>
