open(TEMPFILE, ">${TempPath}/temp_shad") || die;
open(SHADFILE, "${TempPath}/$passwdfile") || die;
while (<SHADFILE>) {
	chomp;
	(@entry) = split(/:/,$_);
		$newentry = join(":", @entry);
		print TEMPFILE "$newentry\n";

##</code><code>##

foo:asDflkj123./d:6445
##</code><code>##

($user,$passwd,$mod,$f1,$f2,$f3,$f4,$f5) = split(/:/,$_);
$newentry = "$user" . ":" . "$passwd" . ":" . "$mod" . ":" . "$f1" . ":" . "$f2" . ":" . "$f3" . ":" . "$f4" . ":" . "$f5)\n";

##</code><code>##

		(@entry[0..8]) = split(/:/,$_);
		$newentry = join(":", @entry[0..8]);