[...]
my @array = split /\s*;\s*/, $var, 2;