push @elements, $1  while
 (/\G\s*"(.*?)"/gc or
  /\G\s*'(.*?)'/gc or
  /\G\s*(\S+)/gc) or die "Argh";

##</code><code>##

push @elements, $1  while(
 (/\G\s*"(.*?)"/gc or
  /\G\s*'(.*?)'/gc or
  /\G\s*(\S+)/gc) or die "Argh" );

##</code><code>##

(push @elements, $1  while
  /\G\s*"(.*?)"/gc or
  /\G\s*'(.*?)'/gc or
  /\G\s*(\S+)/gc) or die "Argh";

##</code><code>##

syntax error at line 1, near "$1  while"