Select Code to Download

my $pos;
if ( $string =~ m{(?=.*\Wcopyright(\W|ed\W)|\s\(c\)\s)} )
...
}
my $date = $1
   if substr( $string, $pos, 400 ) =~ m{\D((?:19|20)\d\d)\D};