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

##</code><code>##

use strict;
use warnings;

use Test::More tests => 4;

my $text = 'Only smartees have the answer!';
ok grep ($text =~ /$_/i, 'Smart'), 'Case-insensitive match';
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';