perl -e ‘while (<>) { @x=split; if ($#x>2){ printf “%02d\t%d\t%d\t%s\n”, $x[0], $x[1],$x[2],$x[3]}else{ printf “%02d\t%d\t%d\t%s\n”, $x[0], $x[1],$x[1]+100,”END” }; }
perl -e ‘while (<>) { @x=split; if ($#x>2){ printf “%02d\t%d\t%d\t%s\n”, $x[0], $x[1],$x[2],$x[3]}else{ printf “%02d\t%d\t%d\t%s\n”, $x[0], $x[1],$x[1]+100,”END” }; }