# ... parsing parameters: $filename, $perlCode, $separator, ...
my $xls = XlsPerl->new( ... parameters ... );

while( my @F = $xls->getNextRowData ) { ### POS 1
  local $_ = join( $separator, @F );

  eval $perlCode; die $@ if $@;
} # while