my $string =~ s%^\s+%%g;