while (my $line = <$in>) {
    my @fields = split /,/,  $line;
    if ($fields[0] = "controller_name") {
        $fourth = $fields[1];
    }
}