Problem mit system(grep) und suche

Hallo Zusammen

Ich habe folgendes Problem:

Ich möchte einen Dateinamen beim Aufruf eines Perl Scriptes an das script übergeben:

perl scriptname.pl test.msg

Danach sollte das Script die angebene Datei mittels grep durchsuchen:

system("grep Received:",$ARGV," > test.txt");

Das Problem ist nun, dass er zwar die Datei test.txt erstellt, diese aber leer lässt. Wenn ich den Befehl von Hand ausführe Funktioniert es (grep Received: test.msg > test.txt). Wo liegt der Fehler?

Mein zweites Problem ist, dass ich einen string nach einer IP-Addresse durchsuchen und diese dann als Variable abspeichern möchte:

Beispiel:
$test = "Received: from 12.123.234.2 (HELO host.name.com)"

if ($test =~ m/[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/) {
$ipaddress = $_;
}

Das funktioniert jedoch nicht wirklich

Für eure Hilfe bedanke ich mich bereits im voraus!

mfG

#!/usr/bin/perl -w

system "grep Received: $ARGV > test.txt";  

$test = "Received: from 12.123.234.2 (HELO host.name.com)";  

if ($test =~ m/[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/) {
   my $ipaddress = $test;
   print "$ipaddress\n";  
}

if ($test =~ m/([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/) {
        my $ipaddress = $1;
        print "$ipaddress\n";  
}