Here's the working example originally suggested by brian d foy:

    use Mojo::URL;
    use Data::Dumper;
    
    my $url = "https://example.com/entry/#/view/TCMaftR7cPYyC3q61TnI6_Mx8PwDTsnVyo9Z6nsXHDRzrN5ftuXxHN7NvIGK34-z/366792786/aHR0cHM6Ly9lcGwuaXJpY2EuZ292LmlyL0ltZWlBZnRlclJlZ2lzdGVyP2ltZWk9MzU5NzQ0MzkxMDc2Mjg4";
    
    my $fragment = Mojo::URL->new($url)->fragment;
    my @parts = $fragment =~ m{([^/]+)}g;
    
    print $parts[1];