if ( $option =~ /^-f(i(e(ld??)??)??)??$/ ) {
	...
}