#!/usr/bin/perl
#!/usr/bin/perl
my $input = '
898778765432100
787667654321100
677656543211210
678765432112321
567654321123210';
f($input);
',$_[0]){chomp;push@r,r
($_);}for(t
(@r)){push@y,r
($_)=~s/0/./gr
}$,=$/;say t
(@y);}sub r
{$_[0]=~s/(?<=(.))?(.)(?=(.))?/$1<=$2&&$3<=$2?$2:$2eq'0'?0:"-"/ger
;}sub t
{@q=();for(@_){for(split//){$q[$i++].=$_;}$i=0;}@q}
IyEvdXNyL2Jpbi9wZXJsCiMhL3Vzci9iaW4vcGVybAp1c2UgZmVhdHVyZSBxdyhzYXkpOwoKbXkgJGlucHV0ID0gJwo4OTg3Nzg3NjU0MzIxMDAKNzg3NjY3NjU0MzIxMTAwCjY3NzY1NjU0MzIxMTIxMAo2Nzg3NjU0MzIxMTIzMjEKNTY3NjU0MzIxMTIzMjEwJzsKCgpmKCRpbnB1dCk7CgpzdWIgZntmb3Ioc3BsaXQnCicsJF9bMF0pe2Nob21wO3B1c2hAcixyKCRfKTt9Zm9yKHQoQHIpKXtwdXNoQHkscigkXyk9fnMvMC8uL2dyfSQsPSQvO3NheSB0KEB5KTt9c3ViIHJ7JF9bMF09fnMvKD88PSguKSk/KC4pKD89KC4pKT8vJDE8PSQyJiYkMzw9JDI/JDI6JDJlcScwJz8wOiItIi9nZXI7fXN1YiB0e0BxPSgpO2ZvcihAXyl7Zm9yKHNwbGl0Ly8peyRxWyRpKytdLj0kXzt9JGk9MDt9QHF9