Исправление joy4eg, 12.05.14 15:44 (текущая версия) :
@l = $v =~ m{("[^"]*")}g;
м ?
Исходная версия joy4eg, 12.05.14 15:37:
@l = $v =~ m{"[^"]*"}g;