@_=glob,/^(.*)[47].* \1[47]/&&y/47/74/,/ /,print$_[$'>$`]for<>