perl retirer tous les espaces

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