Perl one-liner

Today’s cute Perl one-liner: convert binary IP address into string form:

join( '.', ( map { 0 + ($bin >> ($_*8)) & 255 } (3,2,1,0) ))

At least I think so :-)