perl trim leading and trailing spaces code example

Example: perl remove all whitespace

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