map{print map("<$_>",@A=/\w+/g),(map"</$_>",reverse@A),$/}<>