my $token = $parser->get_hashtoken();
if($token->{type} eq 'S') {
    if(exists $token->{attrs}->{href}) {
        print Data::Dumper::DumperX($token);
    }
}