if ( $foo =~ /^$bar$/i ) { ... }