while ( my $line = <$fh> ) {
    chomp $line;
    my ( $name, $passwd ) = split /:/, $line;
    next unless $name eq $userName;
    ....
}