Perl remova todo o espaço em branco

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