perl -e 'my $r = q/Capri|Classic/; print $1 if "capri" =~ m/($r)/i;'