Fjerne spaces

Hej

jeg skal have formateret en tekst streng. Jeg bruger pt. denne her:
$brugernavn =~ s/(^ *)||( *$)//g;
$brugernavn =~ s/\s+/ /g;

som fjerner spaces foran og bagved, og erstatter evt. spaces i strengen til et enkelt space.

Kan det gøres i en, og måske enda smartere ? :)