serv  login   pass
serv  login   pass
serv  login   pass

##</code><code>##

open(IN, $ARGV[2]) or die "Can't read $ARGV[2]: $!\n";

my ($in,@workarray);
while( sysread(IN,$in,length($enckey)) ) {
    push @workarray,$in^substr($enckey,0,length($in));
}

##</code><code>##

print "Value is : $workarray[0]";
print "Value is : $workarray[1]";
print "Value is : $workarray[2]";
print "Value is : $workarray[3]";
print "Value is : $workarray[4]";
print "Value is : $workarray[5]";

##</code><code>##

Value is : SYB_SERV_DEV
Value is :      joe_blogg
Value is : s    nopasswor
Value is : d
SYB_SERV
Value is : C_OTC        joe_
Value is : bloggs       nopa

##</code><code>##

Value is : SYB_SERV_DEV
Value is : joe_bloggs
Value is : nopassword
Value is : SYB_SERVC_OTC
Value is : joe_bloggs
Value is : nopassword