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