dvergin is spot on. The only thing I'd add is that if for some reason you want to be able to deal with the occasional appearance of an unititialised value then this wd do the trick (or whatever defaults you favour):
196 my $string = ($month or 'no month') . ($year1 or 'no year');§
George Sherston