my $unsauber = '   Hallo Welt.';

( my $sauber = $unsauber ) =~ s/^\s*//;