local $/ = undef;
my $raw = <FILE>;
$raw =~ s/[\r\n]//g;
$raw =~ s/;\s+//g;
my @list = split /;/, $raw;