[Perl] Suppr d'espaces en début de ligne

Salut à tous,

J'ai un petit souci avec une expression régulière Perl.
Je fais un test avec le petit programme suivant :

#!/usr/bin/perl -w
use strict;

my $text = " hey bonjour\n         \t          pof pif";

print "$text\n";
$text =~ s/^[ \t]+//g;
print "$text\n";

Normalement, le deuxième print devrait m'afficher

hey bonjour
pof pif

Au lieu de ça, le remplacement semble ne fonctionner que sur la première ligne ?! Ça me donne donc :

hey bonjour
                          pof pif

J'ai testé ce bout de code sous windows avec cygwin et sur une debian, le résultat est le même.

Je ne comprends pas du tout ce comportement : je dis bien supprime moi (s) tout espace ou tabulation ([ \t]+) et ce pour toutes les occurrences (/g).

Quelqu'un voit pourquoi ça fonctionne pas et surtout quelle serait la solution à ce souci ?

Merci
@++

--
Si chacun de nous a une idée et que nous les partageon
tous les deux avec deux idées... C'est ça le Libre.