use File::Slurp qw(:edit);

sub addSecondary
{
	my ($email, $secondary) = @_;

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