FIlE:  Users.txt------------------------------
jblow::1337:21::::Joe Blow:/Network/Servers/schoolserv.domain/Volumes/UserFiles/Users/jblow::/bin/bash::<home_dir><url>afp\://same.ip.here/User%20Files</url><path>jblow</path></home_dir>:<?xml version="1.0" encoding="UTF-8"?>\
<dict>\
	<key>kAPOPRequired</key>\
	<string>APOPNotRequired</string>\
	<key>kAltMailStoreLoc</key>\
	<string></string>\
	<key>kAttributeVersion</key>\
	<string>Apple Mail 1.0</string>\
	<key>kAutoForwardValue</key>\
	<string></string>\
	<key>kIMAPLoginState</key>\
	<string>IMAPAllowed</string>\
	<key>kMailAccountLocation</key>\
	<string>142.176.189.139</string>\
	<key>kMailAccountState</key>\
	<string>Enabled</string>\
	<key>kPOP3LoginState</key>\
	<string>POP3Allowed</string>\
	<key>kUserDiskQuota</key>\
	<string>0</string>\
</dict>\
::<?xml version="1.0" encoding="UTF-8"?>\
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http\://www.apple.com/DTDs/PropertyList-1.0.dtd">\
<plist version="1.0">\
<dict>\
	<key>simultaneous_login_enabled</key>\
	<true/>\
</dict>\
</plist>\
--------------------EOF-Section-----------------------

##</code><code>##

jblow::1337:21::::Joe Blow:/Network/Servers/schoolserv.domain/Volumes/UserFiles/Users/jblow::/bin/bash::<home_dir><url>afp\://same.ip.here/User%20Files</url><path>jblow</path></home_dir>:<?xml version="1.0" encoding="UTF-8"?>\

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;
@numarray= open (NUMLONG, "<$oldfile") or die "Error opening $oldfile : $!";
@shortarray = open (SHORTLONG, "<$newfile") or die "Error opening $newfile : $!";

sub sessionclean {
	my $x = 0
	foreach $key (@shortarray)
		if ($key =~ /\:{2}\d+\:{4}/) {
		
		} else {
			# ignore
		}
	}
}