Select Code to Download

for (qw( video book )) {
   'unchanged' =~ /(.*)/;  # Set $1
...
      print "false -> $1\n";
   }
}

false -> video
true -> unchanged

foreach my $link (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
...

   print("$url: $title\n");
}

foreach my $link (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
...

   print("$url: $title\n");
}