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