Select Code to Download

sub addSecondary
{
...
    unlink 'registration.dat';
    rename 'registration.tmp' 'registration.dat';
}

use File::Slurp qw(:edit);

...
        { s/nodata/$secondary/gi if /$email/ }
        'registration.dat';
}