Is there an "easy way" (more on that elusive term in a moment) to get this:
perl -e 'my $r = q/Capri|Classic/; print $1 if "capri" =~ m/($r)/i;'
to return the characters from the regex (mixed/upper- lowercase) -- I.E. "Capri", not "capri"? Or to populate it in some variable (it can go into $1, if thats doable)...
Preferrably in a cleaner way then doing an eval inside the regex with some kind of map, or something. And not having to build a separate hash that maps the lower-case to mixed-case version.. In other words, something in the regex internals, that might get set? Or something that might not take someone 20 minutes to figure out how it works at a later date?
Thanks (as always)!