$ perl foo.pl
j.a.p.h