# Table lookup for character to segment translation
sub Decode { $ctbl{ $_[0] } // $ctbl{ '=' } }