#!/usr/bin/perl -w
use strict;

my$a="ttbb           bbbb          Add                 d
ddTxttbbbbb          bbGdd         dCx                ttb
bbb      bbb         bTd Axt       tbb               bbbbb
bb+       xtt        bbb  bbb      bbG              dCx ttb
bbb        bbb       Tdd   dAx     ttb             bbb   bbC
ddd         ddG      xtt     bbb   bbA            ddd     ddd
dTx         ttb      bbb      bbT  ddd           ddAxttbbbbbbb
Gdd        dCx       ttb       bbb bbb          bTdAxttbbbbbbbb
b+x       ttb        bbb        bbbbTd         Axt           tbb
bbb      bbG         ddd         Cxttb        bbb             bbT
dddddAxttbb          bbb          Gddd       ddd               dCx
ttbbbbbbAd           ddd           dT"      ;$a                 =~s

/d/-/g;$a=~s/\s//g;$a=~s/b/\x20/g;$a=~s/t/\x9/g;$a=~s/x/\n/g;print$a;