[CODE]
1000

[PASS]
AMY     AMY2376G
NOOR    NOO2376G
MONK    MON2376G

##</code><code>##

$code = 1000

$user1 = AMY
$pass1 = AMY2376G

$user2 = NOOR
$pass2 = NOO2376G

.
.
etc

##</code><code>##

open ( input , "../input" ) or die " .... ";
while (<input>)
{
my $code=$_ if /^CODE/

.
.
.
}