my @pieces = /(?:^|\G@)((?:#.|[^@])*)/sg;