gistfile1.txt

grammar URL
{
    token TOP
    {
        <schema> '://' 
        [<ip> | <hostname> ]
        [ ':' <port>]?
        '/' <path>?
    }   

    token byte
    {   
        (\d**1..3) <?{ $0 < 256 }>
    }

    token ip
    {   
        <byte> [\. <byte> ] ** 3
    }

    token schema
    {   
        \w+
    }

    token hostname
    {   
        (\w+) ( \. \w+ )*
    }

    token port
    {   
        \d+
    }

    token path
    {   
        <[ a..z A..Z 0..9 \-_.!~*'():@&=+$,/ ]>+
    }
}

subset NonEmptyString of Str where *.chars >= 0;
subset UrlToken of NonEmptyString where { $_ ~~ /^TOP$/ | /^byte$/ | /^ip$/ | /^schema$/ | /^hostname$/ | /^port$/ | /^path$/ };

sub MAIN( NonEmptyString $string, UrlToken $token )
{
    my $match = URL.parse($string);

    say $match{$token};
}