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

##</code><code>##

foreach (@list) {
  s/^[^<>]+<([^<>]+)>$/$1/;
  # or:
  s/^[^<>]+<([^<>\s]+@[^<>\s]+)>$/$1/;
}