perl -p -e 's/^.*timestamp ([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2})([0-9]{2})([0-9]{2}) .*nick (.*) body {?(.*?)}?$/\1\/\2\/\3 \4:\5:\6 \7> \8/;s/\\n/ /g'