@_=glob,s/^(.*)([47])(.* \1)([47])/$1$4$3$2/,/ /,print$_[$'>$`]for<>