$s =  "test string x  x\nFeb  1 09:12:33  (";
$s =~ s/^(\w{3})  /$1 /m;