Select Code to Download

#!/usr/bin/env perl 
use strict;
...
my $fullmail = param ("email");
my ($name,$email) = ($fullmail =~ /^(.+?)\s+<?(\S+?)>?$/);
print "Name is $name, Email is $email, Original is $fullmail\n";