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

$a = "11/03";
($j, $m)= split(/\//,$a,2);
print "$a\n";

print "$j\n";
print "$m\n";

END;