hanada3355さんが自明に$1$byte縮む解を出してたから提出しなおした。 %20さんのも気になったから弄ったら$1$byte縮んだ。両方$47$byteの暫定最短になった。

implementation

私が何も見ずに書いたperl $51$byte。

s/\n//,print(reverse cmp y/bdpq/dbqp/r?No:Yes)for<>

%20さんの提出は同様の方向性の$48$byteで、$_=$/.<>で先頭に改行を付与し、cmpでなく=~で一致判定するもの。