regsub -all -nocase -- {\n} $data {} data regexp {(.*?)} $data "" title regexp {
(.*?)
} $data "" price putserv "PRIVMSG $chan :$tutu(color1)$title\003" regsub -all -nocase -- {^.*?} $data "" data regsub -all -nocase -- {.*?$} $data "" data regsub -all -nocase -- {} $data {|} data regsub -all -nocase -- {.*?} $data {} data regsub -all -nocase -- {.*?} $data {} data regsub -all -nocase -- {} $data {} data regsub -all -nocase -- {
.*?
} $data {} data regsub -all -nocase -- {
.*?
} $data {} data regsub -all -nocase -- {
} $data {} data regsub -all -nocase -- {} $data {} data regsub -all -nocase -- {

} $data {} data regexp {} $data {$tutu(color3)$izm. $chstr} data regsub -all -nocase -- {

} $data {} data regsub -all -nocase -- {} $data {} data set data [string map {"" "" "

" "" "

" "" "" "" "" "" "" "" "" "" "" "" "" ""\ " " " " "" "\00304" "" "\003" "" "" "" ""} $data] regsub -all -nocase -- {} $data {%} data regsub -all {\s+} $data " " data