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