Removendo espaços de uma string em PERL

uma funçãozinha simples pra limpar espaços de uma string usando
expressão regular
afinal perl não tem uma função trim, alias, não precisa, essa é apenas uma das
muitas possiveis maneiras de se fazer isso…

#!/usr/bin/perl

# Criado em:Qui 07/Mai/2008 hs 23:02
# Autor: MRSantos mrsantos@viaconnect.com.br

use warnings;
use strict;

sub trim {
  my $string = shift;
  for ($string) {
    s/^\s+//;
    s/\s+$//;
  }
  return $string;
}

my $nome = "      Marcio     ";

print "Antes: " . length($nome) ."\n";

my $nova = trim($nome);

print "Depois: " . length($nova) ."\n";