use strict;
use warnings;

open("FILE", "< ./file")
  or die ("Can't open the file: $!");
while (my $line = <FILE>) {
  my ($var1, $var2, $domain, $domain_name, $var9, $var6) =
 split '\|', $line;
  # do whatever with each value here...
}