use strict;
my $str = 'I works just fine for my purpose, but now I need the exact same regex in Javascript? (to make sure that the outputs are consistent) and I\'m struggling to translate Mr. this Python regex. Into one compatible with Javascript. "What with Quoting?" Another sentence.
';
my $regex = qr/(?!Mrs?\.|Jr\.|Dr\.|Sr\.|Prof\.)(\b\S+[.?!]["']?)\s/p;
my $subst = '$1\\n';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html