use strict;
use XML::Simple;
use Data::Dumper;

while (<>) {

  next if /xml|ArgusDataStream/;
  my $xml=$_;
  $xml.=<> while $xml !~ m|</ArgusFlowRecord>|;
  my $xmlhash=XMLin($xml);
  print Dumper($xmlhash);  
  
}
__END__
$ xmlstuff.pl <xmlinput
$VAR1='
   Flow data set 1
';
$VAR1='
   Flow data set 2
';

##</code><code>##

<?xml version="1.0">
<ArgusDataStream>
<ArgusFlowRecord>
Flow data set 1
</ArgusFlowRecord>
<ArgusFlowRecord>
Flow data set 2
</ArgusFlowRecord>
</ArgusDataStream>