#mindnumbingly simple example....
while (<DATA>) {
  my ($x,$y,$z)=split(/,/,4);
  #do something weird with $x,$y,$z
}
__DATA__
blah,blah,blah