Como posso implementargrep do Unix em Perl? Eu tentei usar o Perl embutidogrep. Aqui está o código que não está funcionando:

$pattern = @ARGV[0];
$file= @ARGV[1];

open($fp,$file);

@arr = <$fp>;

@lines = grep $pattern, @arr;

close($fp);
print @lines;

E, a propósito, eu estou tentando apenas básicogrep funcionalidade não cheia de recursos e, em segundo lugar, eu não quero fazer a análise de string. Eu quero usar embutidogrep ou alguma função do Perl.

Desde já, obrigado :)