( $result = $htmlline ) =~ s/{(.+?)}{join("\n", split(//, $1))}eg;