use List::MoreUtils qw( any );

if (any { /abcdefgh/ } $a, $b, $c) {
   ...
}