sub
_{q^J?L81P>Q%M(Zz*O=Q\\4U6]8Jf^}
@^=split//,_;$^=${^}^$^;map{
print+($^
^$_)lt' '?
q; ;:$^
^$_;$^=$_;
}@^;