$/=<>;print$&while$_="@{[sort glob<>=~s/
/| /gr]}",s/\w//