for (qw( video book )) {
   'unchanged' =~ /(.*)/;  # Set $1

   if ( $_ !~ /(video)/ ) {
      print "true -> $1\n";
   } else {
      print "false -> $1\n";
   }
}