Select Code to Download

@models = map { (split /;\s*/)[1] } @models;

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