Help for this page
#! perl use strict; ... $string =~ s/[ ]{2,}/ /g; print "'", $string, "'\n";
'2012-7-27 9:37:31'