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