print "Field 1 & 2 Separate or Combined? ";
chomp($_=<STDIN>);
lc($_);
$_ eq 's' ? $OPER='s' : $OPER='c';
print "OPER $OPER\n";
__END__
Field 1 & 2 Separate or Combined? S
OPER c