Select Code to Download

$class .= ' right' unless grep($text =~ /$_/i, @big_images);

use strict;
use warnings;
...
ok grep ($text =~ /$_/i, 'foo', 'Smart', 'bar'), 'Match one of three';
ok grep ($text =~ /$_/i, 'foo', 'Smart', 'art'), 'Match two of three';
ok !grep ($text =~ /$_/i, 'foo', 'baz'), 'Match none';