s|
    # store next four characters into $1,$2,$3, and $4
    (.)(.)(.)(.)
  |
    # replace with a Base4-to-ASCII conversion of those characters
    chr (64*$1 + 16*$2 + 4*$3 + $4)
  |gex;