#!/usr/bin/perl -wnl
use strict;
print;
print join ' / ', map qq["$_"], m[\G (
        ' (?: \\ . | '' | [^'] ) + '
        |
        " (?: \\ . | "" | [^"] ) + "
        |
        (?: \\ . | [^'"] ) + 
) ]gx;
print "";