Подскажите, пожалуйста, как правильно парсить конец строки в регулярном выражении,

Question

Подскажите, пожалуйста, как правильно парсить конец строки в регулярном выражении,

пример:

my $str1 ='http://example.com:8080/bla/bla';
my $str2 ='http://example.com/bla/bla';
my $str3 ='http://example.com';

sub parse_url {

my ($url) = @_;

my $proto;
my $domain;

say "$url";

$url =~ m!^(?<proto>[^\:]+)\:/{2,3}(?<domain>[^\:/]+)[:/]!;

say "$+{proto}";
say "$+{domain}";

}

parse_url("$str1");
parse_url("$str2");
parse_url("$str3");

В регулярке не совсем понятно, как добавить случай для конца строки - $str3.

Так конечно не работает:

...(?<domain>[^\:/$]+)[\:/$]!;

Не совсем понимаю, как добавить конец строки, чтобы условие было "не : или не / или не $".

Спасибо!