#!/home/tene/src/pugs/pugs

token pathpart { | '.php'
                 | '.html'
                 | '/'
                 };

token querypart { \? <[0-9a-zA-Z&=%+_]>+ }

my $result = "foo.php?id=1" ~~ /<pathpart><querypart>?$/;

$result.perl.say;