DB<4> x $line =~ m/^(\s*)((?'quote'"?)[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''