open (LOG, $log) or die "Error: $!"; print sort map { s/(\S+)(\s+)(\S+)/$3$2$1/; $_ } ;