#!/usr/bin/perl -w

my $default_from_domain = 'www.domain.com';
my $unsub = 'un-foo@foo.com un-foo@foo.com';
print $unsub, "\n";

$unsub =~ s/(un-.*)\@(.*)/$1\@$default_from_domain/g ;
print $unsub;