perl -i.bak -0ple 's!<title>\s*</title>(.*?)(<title>.*?</title>)!$2$1$2!is' file.html