open $fh, "<", "file.csv";
my $lines;
while(<$fh>) {
    my @record = split /;/; # split on semicolon
    $lines .= $_ if $record[2] == 1;
}
close $fh;
print("string: $lines");