my @OUTPUT = split(/\Q$PATTERN\E/, $STRING, 2); #####
  $a = $b = '';
  if (@OUTPUT > 0) { $a = $OUTPUT[0]; }
  if (@OUTPUT > 1) { $b = $OUTPUT[1]; }