my $ws = qr/(?:#.*|\s+)*+/; # white space

##</code><code>##

my $ws = qr/(?:#.*+|\s++)*/; # white space

##</code><code>##

my $ws = qr/(?>(?:#.*|\s+)*)/; # white space