Acidentalmente, descobri uma sintaxe inusitada:
$ perl -E 'say 74.65'
74.65
$ perl -E 'say 74.65.80'
JAP
$ perl -E 'say 74.65.80.72'
JAPH
Que raios é isso?!
$ perl -MO=Concise -E 'say 74.65.80.72'
6 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 47 -e:1) v:%,{,2048 ->3
5 <@> say vK ->6
3 <0> pushmark s ->4
4 <$> const(PVMG "JAPH") s ->5
-e syntax OK
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
