#--------1---------2---------3---------4---------5---------6---------7-------
#2345678901234567890123456789012345678901234567890123456789012345678901234567
perl -pe'@h{/([^,]*)/}|=2-@ARGV}while(@_=each%h){$_="@_"=~/[12]$/&&"$&:$`$/"'