Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    (my $outfile = $infile) =~ s/^\d{6}/$repl/;
    rename $infile, $outfile;
}