perl: sub {
    use URI;
    my $post = shift;

    my $uri = URI->new($post->{url});
    print $uri->path, "\n";
}

perl: sub {
    use URI;
    my $post = shift;
    print $post->{title}, "\n";
}