my $userid; my $password; while() { next if /^ *#/; ($userid, $password) = split / *= */; $userid =~ s/^ +//; $userid =~ s/ +$//; } print "$userid:$password\n"; __DATA__ #user=passwd test = prrft5142