#!/usr/bin/perl
use Email::Address;
my $line = <>;
my @addresses = Email::Address->parse($line);
print "address=$_\n" foreach @addresses;