Perl elimina todo el espacio en blanco

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