$string="glarch capri foobar";
$r=q/Capri|Classic/;

$string=~m/($r)/i;
$r=~m/($1)/i;

print $1;

...
Returns 'Capri'