$re .= qr/(?<$_>$_\s*)/ for @fields;


##</code><code>##

 
for my $field (@fields) $re=$re.qr/(?<$_>$_\s*)/