Select Code to Download

LA01 ACCTGG
LA02 ATTGGC
LA03 ATCCCG

 
#!/usr/bin/perl
opendir(DIR, "/samplesA") or die "Can not open folder, $!\n";
...
        $new =~ s/sample_$barcode/$id/;
        rename ($file, $new) or die "Can not change $file to $new, $!\
+n";
}}}}