if ($x =~ /\s/)

##</code><code>##

if (substr($x, -1) =~ /^\s/

##</code><code>##

if (rindex($x," ") == 0 || rindex($x,"\r") == 0 ||  rindex($x,"\n") == 0 ||  rindex($x,"\t") == 0)