Select Code to Download

serv  login   pass
serv  login   pass
serv  login   pass

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

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

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

Value is : SYB_SERV_DEV
Value is :      joe_blogg
...
SYB_SERV
Value is : C_OTC        joe_
Value is : bloggs       nopa

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