my $year = 2003

s/(copyright\s+)(\d{4})(?:-\d{4})?/$1 . ($2 eq $year ? $2:"$2-$year")/
+ie;
<p>