my($type,$make,$color)=$line=~/"([^"]*)"/g;

##</code><code>##

my($type,$make,$color)=$line=~/"((?:[^"\\]*|\\"?)*)"/g;