$file = "c:\\somepath\\somefilename";
open (FILE, "<$file")  or die "Cannot open $FILE for reading :$!\n";
while (<FILE>){
  chomp;
  my @fields = split /\s+/;
  # @fields now contains individual fields from each line
}
close FILE;