Select Code to Download

use strict; 
use warnings; 
...

Test #1 'SSS','SSS'
Test #2 'SSS','SSS'

use YAPE::Regex::Explain;
my $re = q{(?<!\\)(['"]).+?(?<!\\)(['"]};
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------