Select Code to Download

use Modern::Perl;
use Regexp::Assemble;
use autodie;
...
open my $PATHS, '<', './paths.txt';
do {print unless /$re_pattern/} while <$PATHS>;
close $PATHS;