#!/usr/bin/perl

(@f) = `ls -1 coc/coc20*txt`;
chomp(@f);
foreach  $f (@f){
    $ftm = $f; 
    $ftm =~ s/coc\/coc//;
    $ftm =~ s/_sod.txt//;
    $fname = "cc2${ftm}40_sod.${ftm}4001137w_org";
    print "cp $f /data/transient/rawsite/cc2tx/$fname\n";
#    exit(0);
    (@res) = `cp $f /data/transient/rawsite/cc2tx/$fname`;
    if($#res > -1){
	print "RES: @res\n";
	exit(0);
    }
#    exit(0);
}
