while (/$regex_string)/isg) {
    print "\nmatched in $arg1:\n==$1==\n";
}