download the podcast mp3s from given simplecast.fm

simplecast.pl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

use constant API
    => 'http://simplecast.fm/podcasts/1446/rss';

my @html = split m|<title>|,
    LWP::UserAgent->new->request(GET API)->decoded_content;

# cut the first odd and heading
for (@html[3..$#html]) {
    my ($title) = m|^([^<]+)|;
    my ($url)   = m|<enclosure url="([^"]+)|;
    $title =~ s/Chapter //;
    
    # system "wget", $url, "-O", "/home/pavel/Downloads/Marketing_for_Developers/mp3/$title.mp3";
}