@models = map { my @t = split /;\s*/; ... $t[1]; } @models;