It's not that you want to make the scalar $cities
case-insensitive, but the regular expression it is referencing. Use the /i
modifier.
my $cities = qr/San Fransisco|Los Angeles/i;
You may find it useful to read the Perl regular expression tutorial: perldoc perlretut
.