#!/usr/bin/env perl 
use strict;
use warnings;
use utf8;

# ... something here which defines param()

my $fullmail = param ("email");
my ($name,$email) = ($fullmail =~ /^(.+?)\s+<?(\S+?)>?$/);
print "Name is $name, Email is $email, Original is $fullmail\n";