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