my @pieces = m/\G(<[^>]*>|#[^#]*#|[^#<]+)/g;