my $info = (split /\s*;\s*/, $dat)[1];