I would try something like (untested):

use constant END_TAG = qr#</ArgusDataStream>#;

my $xml = "";
while (<STDIN>) {
    my $line = $_;
    $xml .= $line;
    if ($line =~ END_TAG) {
        # Process the XML here...

        # Start again
        $xml = "";
    }
}
[download]