$_="123
456
789 147,258,369,159,357";
sub d{/.{12}/s;print$&.(
$p=$p?0:X);@_&&die@_}d;
while(<>=~/\d/&&s/$&/$p/g){
/$p{3}/?d$p:!/\d/?d"Tie":d
}