open(CONTENT, "<", \$content) || die ...

while (<CONTENT>) {   # reads line by line from $content
    ...