Monks,

I want to pass a case-insensitive argument into a Perl script. I've used a construct like:

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

successfully.

However, I want to add an option to each "when" whereby the passed-in value can optionally be just a number (say 0, 1, etc.). IOW, I want to be able to call the script with any of the following constructs:

perl myscript.pl foo
perl myscript.pl Foo
perl myscript.pl 0

and always "{do this}".

I tried the gw[] construct but I lose the case-insensitivity

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

I'd appreciate some help. Thanks!