Get mp3-url from podcast

gistfile1.pl

#!/usr/bin/env perl
use common::sense;
use ojo;

die "Usage: $0 <podcast url>" unless @ARGV;

b(g( shift )->dom->find("enclosure[url]")->each(sub {
	local $_ = shift->attrs->{url};
	say if /\.mp3$/;
}));