Select Code to Download

 s{.*/}{/}

use strict;
use warnings;
...

--output:--
book book_manager piano_book

@results = map { (split '/', $_)[-1] } @paths;