Select Code to Download

$branch =~ /^([\w-]+)$/i;
$branch = $1;
...

open (OUTFILE, ">../$branch/images/$newfile") or die "Cannot open $new
+file: $!";
...