Select Code to Download

use strict;

...
    print $string."\n";
  }
}

Using (?-xism:(?i)john)
Jack Jack name
Using (?-xism:(?ig)jack) in global mode
name name name