[bcn-pm] JAPH amb nocturnitat

[Xavier Noria]

Dedicat al grup :-).

-- fxn
$_=q,Barcelona Perl Mongers,,$*=y at B@@+y at B@@+doo;$/=@/=m/\S+/g;$,+=split//,
(split)[0.577];$,-=split//,(split)[1.618];$"=y"catalunya"";$;=y;rambles;;;
$:=$//$/+length;$@=$***$**$/**$*%$:;$%=$/*$"-$*;print chr($_<"+10"?"+10$_"
:/^1/? "+1$_":$_)for($**($**$%-$//$/),$%-$*,$,*$/,$***$***$*,$***$,,$"*$@+
$**$/,$**$,,$;,$***$***$*,$***$*,$//$/,$**$",$***$,,$***$***$**$,,$,/$,,,,
$"*$*,$***$/,$***$,,,,$,-$%/$%,$"*$@+$**$/,$;*$/**$*,$",$/-$*,($:+$,)/$*,)