#!/usr/bin/perl -w
# essai pour voir le comportement de split. alain adelmar 25012001

$a = "11/03 Re: Je suis le meilleur\n";

($w, $m, $s)= split(/:/, $a);

print "$a\n";
if ($m=~ /^Re/) {
  $m = $s;
}
$m=~ s/^\s//;
print "$m\n";

END;