@strings = (
  'x',
  '/*x*/',
  '"x"',
  '"\"',
);

for (@strings) {
  while (/\G$REx/g) {
    print "$_ => '$1'";
  }
  print "";
}
__END__
x => 'x'

/*x*/ => '/'
/*x*/ => '*x*/'

"x" => '"x"'