perl -MGetopt::Std -E  'getopts("oif:"); say $_,"=",${"opt_$_"} for qw|o i f|' -- -o -f this 
o=1
i=
f=this