Help for this page
if ($x =~ /\s/)
if (substr($x, -1) =~ /^\s/
if (rindex($x," ") == 0 || rindex($x,"\r") == 0 || rindex($x,"\n") == + 0 || rindex($x,"\t") == 0)