Help for this page

Select Code to Download


  1. or download this
    local $/ = undef;
my $raw = <FILE>;
$raw =~ s/[\r\n]//g;
$raw =~ s/;\s+//g;
my @list = split /;/, $raw;
  2. or download this
    foreach (@list) {
  s/^[^<>]+<([^<>]+)>$/$1/;
  # or:
  s/^[^<>]+<([^<>\s]+@[^<>\s]+)>$/$1/;
}