use warnings
  # FATAL => 'all'
    ;
use strict;


use Test::More
  # tests => ?? + 1  # Test::NoWarnings adds 1 test
    'no_plan'
    ;
use Test::NoWarnings;


my $renames = {
  qw(this_sub that_sub   var_1 var_a   var_2 var_b   and FILED),
  map { $_ => 'FAILED' } qw(Ignore nothing can t do it),
  };

my ($rx_rename) =
  map  qr{ \b (?: $_) \b }xms,
  join q{ | },
  keys %$renames
  ;


# functions under test ###############################################
+######

eval q{

    # uses  s///r  from version 5.14+
    # uses possessive quantifiers from 5.10+
    sub replace_5_14 {

        my ($string,
            ) = @_;

        my $rx_dquot  = qr{ " [^"]*+ (?: "" [^"]*+)*+ " }xms;
        my $rx_ceol   = qr{ ' [^\n]*+ \n? \z            }xms;
        my $rx_skipem = qr{ $rx_dquot | $rx_ceol }xms;

        return $string =~ s{
            $rx_skipem*+ \K  ((?: (?! $rx_skipem) .)*+)
            }
            {
                $1 =~ s{ ($rx_rename) }{$renames->{$1}}xmsgr
            }xmsger;

        }

    } if $] >= 5.014;


# testing ############################################################
+######

METHOD:
for my $func_name (qw(replace_5_14)) {

    next METHOD unless exists &{$func_name};

    note "\n testing function $func_name() \n\n";
    *replace = do { no strict 'refs';  *{$func_name}; };

    VECTOR:
    for my $ar_vector (
        [ qq{""},               qq{""},   ],
        [ qq{"'"},              qq{"'"},  ],
        [ qq{""""},             qq{""""}, ],
        [ qq{ xxx foo("var_1", "Ignore ""can't""", """") ' do it \n},
          qq{ xxx foo("var_1", "Ignore ""can't""", """") ' do it \n},
          ],
        [ qq{ this_sub("first", var_1, "Ignore ""can't""", """") ' do 
+it \n},
          qq{ that_sub("first", var_a, "Ignore ""can't""", """") ' do 
+it \n},
          ],
        [ qq{xxx can't Ignore this_sub("first", var_1, "Ignore ""can't
+""", """") ' do it \n},
          qq{xxx FAILED't Ignore this_sub("first", var_1, "Ignore ""ca
+n't""", """") ' do it \n},
          ],
        [ qq{xxx will Ignore't this_sub("first", var_1, "Ignore ""can'
+t""", """") ' do it \n},
          qq{xxx will FAILED't this_sub("first", var_1, "Ignore ""can'
+t""", """") ' do it \n},
          ],
        ) {

        my ($string, $expected) = @$ar_vector;

        is replace($string), $expected,
          # qq{}
          ;

        }  # end for VECTOR

    }  # end for METHOD
[download]