use warnings;
use strict;
use Getopt::Long;

my $foo;
GetOptions(
    "foo=s" => \$foo,
);

if ($foo) {
    print $foo =~ /!(.*)/ ? "All but $1" : "Only $foo";
};