#!/usr/bin/perl
$\ = "\n";

while (<>) {
($Fld1,$Fld2,$Fld3) = split(' ', $_, -1);
if (/^hoge/) {
print $Fld3;
}
}

--------------------------------

#!/usr/bin/awk -f
/^hoge/{ print $3}


>>444
特定のフィールドを扱う処理だったらgrep使わんでしょ、普通
にしても・・・perlなんてワンライナーで使いたくねぇw