When you post a message like this, do NOT say "it doesn't work". Instead, show what you tried, what you got, and what you wanted. Use copy/paste rather than typing from memory.

eg:

I tried the code

use warnings;
use strict;
print "$0";
[download]

the results I got were just

test.pl
[download]

But I was hoping to get something more like "perl test.pl" printed out.

Actually, it does work. Here's the source data in file.csv:

a;b;1;foo
j;k;2;dog
m;n;3;cat
y;z;1;bar
[download]

And here's the script, which I have called at.pl:

#!/usr/bin/perl -w

use strict;
use warnings;

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

and here's the output from running ./at.pl:

$ ./at.pl 
string: a;b;1;foo
y;z;1;bar
$
[download]

awk is gawk 4.0.0, perl is 5.14.2. I still don't recommend doing it this way for reasons of efficiency and external dependency but it does give the right output.