given( $ARGV[0] ) {
    when (/^(foo|0)$/i) {do this}
    when (/^(goo|1)$/i) {do that}
}