#!/bin/sh

perl -0777 -pi.bak -e 's/(?m)^(\d{2}:\d{2}:\d{2}\.\d+) +--> +(\d{2}:\d{2}:\d{2}\.\d+).*[\r\n]+\s*(?s)((?:(?!\r?\n\r?\n).)*)/\3/mg' $1
perl -0777 -pi.bak -e 's/<[^>]*>//mg' $1
perl -0777 -pi.bak -e 's/^\s*\n//mg' $1
perl -0777 -pi.bak -e 's/^(.*)(\r?\n\1)+$/\1/mg' $1
perl -0777 -pi.bak -e 's/^(\d{2}:\d{2}:\d{2}\.\d+) +--> +(\d{2}:\d{2}:\d{2}\.\d+).*[\r\n]//mg' $1