#!/usr/bin/perl -w

use strict;
use warnings;

my @rows = `awk -F';' '\$3==1' file.csv`;
my $lines= join('', @rows );
print "string: $lines";
exit;