Select Code to Download

#!/usr/bin/perl -w
use strict;
...
if ( index($string,'2003') == -1 ) {
    $string .= ', 2003';
}

#!/usr/bin/perl -w
use strict;

my $string = 'copyright 2000-2003';
$string .= ', 2003' if $string ~= /\b2003\b/;