use Mail::Address;
my @addrs = Mail::Address->parse("<sk@intertivity.com>");

foreach &#36addr (@addrs) {
   print &#36addr->address,"\n";
}