open (LOGFILE, '; foreach $data(@data) { $data=~s/up//; $data=~s/down//; $data=~tr/849//d; print $data; #### $mergedata=$data . ".sh"; print $mergedata;