Help for this page
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"; }}}}