# escape everything before @tags $this_line = HTML::Entities::encode("$1") . "$2" if /^([^@]*)(.*)/s;