if($line =~ /(?:<\w>)?()?(?:<\w>)?(References|Note|Acknowledgement)(?:<\/\w>)?<\/P_sec\d>/<\/body>\n$&/si) { } else{ $line .= "\n"; }