#!/usr/bin/perl
use warnings;
use strict;
while ( defined ( $_ = <DATA> ) ) {
  if ( /\|DOMAIN\|([^|]*)/ ) {
    print "$1\n";
  }
}
__DATA__
var1|var2|DOMAIN|test.com|var9|var6