http://www.perlmonks.org?node_id=698803


in reply to Re: Convert from awk to perl
in thread Convert from awk to perl

That won't quite work--braces, {}, are always required for blocks in Perl. So, for instance, the first "if" statement would need to be written as:
if ( substr($F[2],0,3) eq "eth" ) { $process=1; }
Update: Or to be a bit more "Perlish" you could write:
$process=1 if (substr($F[2],0,3) eq "eth");
Update 2: Correction of string comparisons, as per Anonymous Monk.