#!/usr/bin/perl

chdir "sodarAWST";

#Rename files from 50 to 40 minutes

(@f) = `ls -1 org_data/*50_10min.dat`;
chomp (@f);
foreach $f (@f){

    $newfilenm = $f;
    $newfilenm =~ s/org_data\///;
    $newfilenm =~ s/50_10min.dat/40_10min.dat/;
    (@res) = `cp $f $newfilenm`;
    if($#res == -1){
        print "$f $newfilenm\n";
    }
    else {
        print "NO FILE CreSATED $f $newfilenm\n";
    }
}

chdir "..";
