use re qw( regexp_pattern );
sub is_ci { (regexp_pattern(shift))[1] =~ /i/ }