Select Code to Download

$_="123
456
...
while(<>=~/\d/&&s/$&/$p/g){
/$p{3}/?d$p:!/\d/ ?d"Tie":d
}

$_="123
456
...
while(<>=~/\d/&&s/$&/$p/g){
/$p{3}/?d$p:!/\d/?d"Tie":d
}