scrape.pl6

use v6;
use LibCurl::Easy;

for $*IN.comb(/ <?after 'href="'> (<-["]>+ ['mp3' | 'pdf']) /) -> $url {
    if $url ~~ m{ ^ 'http://www.buddhistbassoonquartet.org/' (.*) } {
        my $filename = $0.subst('%20', '_', :global).IO;
        my $dirname = $filename.dirname.IO;
        unless $dirname.e {
            $dirname.mkdir;
        }
        
        LibCurl::Easy.new(URL => $url,
                          download => ~$filename).perform;
    }
}