Help for this page
my $a = $year < 1999 ? 'pre-' :'post-'; print "In the context of ${a}millenium treatment of dates, $year becam +e...";