perl 5.6 how to trim spaces code example

Example: perl remove all whitespace

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