perl remove all whitespace code example

Example: perl remove all whitespace

$str =~ s/^\s+//;