my $insensitive = '(?i-xsm)';
my $sensitive   = '(?-xism)';

my $target = "Abcde";

foreach my $re_switch ( $insensitive, $sensitive ) {
    if( $target =~ m/$re_switch([a-z])/ ) {
        print "$1\n";
    }
}