http://hledani.rozhlas.cz/iRadio/

iradio.pl

use strict;
use warnings;

# SINGLE
# perl iradio.pl 20min_marketa_pravdova_cestina.mp3
# MULTI
# perl iradio.pl ladislav_hejdanek_dopisy_priteli_

my $name = shift;
die unless $name;

my ($list) = $name =~ /_(\d+)$/;
$name =~ s/_\d+$//;

for (<>) {

chomp;

next unless $_ // m|^http|;

s/prehravac/media/;
s/audio/_audio/;

system 'curl', '-o', ($name . ( $list ? ('_'.$list++) : '') . '.mp3'), $_;

}