Я не уверен, что я делаю неправильно здесь. Почему блок регулярных выражений не соответствует и не происходит подстановки. Пожалуйста помоги.
#!usr/bin/perl
use strict;
use warnings;
my $x = << "END";
// @@@ START COPYRIGHT @@@
//
// nth dimesion
//
// Copyright 2007
// nth dimension
// Protected as an unpublished work.
//
// The computer program listings, specifications and documentation
// herein are the property of nth dimension Company,
// L.P., or a third party supplier and shall not be reproduced,
END
$x=~s/\/\/\s+Copyright\s+\d{4}$/Copyright 2008/g;
print "$x\n";
При печати $x выводится то же значение. Пожалуйста, помогите.
