print "OK" if m((?i:var)=/bin);

##</code><code>##

my $m_var = qr/var/i;
print "OK" if m($m_var=/bin);