while ($line=){ @params = split(/\s/,$line); $id = shift @params; $op = shift @params; $parameters.= $id."|"; $operators .= $op."|"; if ($op eq 'between'){ $v = shift @params; $values1 .= $v.'|'; if ($.>1){ $v2 = shift @params; $values2 .= '|'.$v2; }elsif($.==1){ $v2 = shift @params; $values2 .= $v2.'|'; } $values2 .='|'; $between = 1; } foreach $value (@params){ $values .= $value."|"; } unless ($between){ for (@params){ $v2.='|'; } } }