perl -e '@_=(shift,pop);$*={ord"<"=>[sub{printf"%s",shift;join$&,
@ARGV[$.,$|]}]};$\=(($,)=$"=~?( )?)&&qq; $_[$#_]\n;;print+chop$,,
$*->{$=}->[$[]->($_)foreach($_[$|++]);' Just another Perl hacker,