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