my $foo = 'BaR'; $foo =~ /bar/i;