Here's my first try at a JAPH. It's not particularly clever, but oh well. How do people get theirs to be in a pattern, like here? Is it just a lot of work or is there some trick? This one would look much better with the underscores spelling JAPH in capital letters, but I really couldn't be bothered.

Update: Changed it to my suggestion up there. It's a bit weird. Eyedrops split up some double underscores into two single underscores, so I had to go and change that back, resulting in some strange stuff (and an H with holes in it).

sub _{$_.=chop()x 2}sub __{$_.=!chop|"0"}print pack"B*",

_ __ _ _ __  _   __ _ __ _ _ _ __    _ __ _ _ __ _    _  _     __ _ __
_  __  _ __  _   __ _ _ __ _ _ __    _ __ _ _ __ _    __ _      __  _ 
__ _ _ __ _ __   _ _ __ _ _ _  __    _ _ __ _ __ _    __ _      _ _ _
      __ _        _ __      _   _    _  _     __ _    __ _      __ _ _
      __ _        _  _      _ _ _    __ _     __ _    _  _      _   __
      _  _        __ _      __  _    _ __     _  _    __ _      __ _ _
      __ _        _  _      __  _    __ _     __ _    __ _      __ _ _
      __ _        _ __ _  _ _ _ _    __ _ __ _  __    _ __ _ _ _ _ _ _
      __ _        __ _  _ _ __  _    __ _ _ __ _ _    _ __ _ __ _ __ _
      __ _        __ _  _ __  _ _    __ _ _ _ _ __    _ __ _ __ _ _ __
      _  _        _ __       _ __    _ __             _ _ _     __   _
      __ _        _  _       _ __    _ __             _  _      __ _ _
      __ _        _  _       __ _    __ _             _ __      _   __
_ __ _ _ _        _ __       _  _    __ _             _ _ _     _   _ 
__ _ __  _        _ _ _      __ _    __ _             __ _      _   _ 
__ _ __  _        _ __       _  _    __ _ _           _ __      _  __
 _ __ _ __        _ __       _ __    _  _             _ __      _ _ __
  _ __ _          __ _       __ _   _ __ _            __ _      __ __
[download]