#!/usr/bin/perl
(@f) = `ls -1 jyg/jyg_sod.*wtb`;
chomp(@f);
foreach  $f (@f){
    $ftm = $f; 
    $ftm =~ s/jyg\/jyg_sod\.//;
    $ftm =~ s/\.wtb//;
    $fname = "jy220${ftm}_sod.20${ftm}01137w_org";
    print "cp $f /data/transient/rawsite/jy2mn/$fname\n";
#    exit(0);
    (@res) = `cp $f /data/transient/rawsite/jy2mn/$fname`;
    if($#res > -1){
	print "RES: @res\n";
	exit(0);
    }
#    exit(0);
}
