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