Select Code to Download

#!/usr/bin/perl -w
use strict;
...

$unsub =~ s/(un-[^\@]+)\@[^ ]+/$1\@$default_from_domain/g ;
print $unsub;