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