substr($line, -6, 6, "\")]]]") if substr($line, -6) eq "\n\")]]]";