unless ($G)
{
 if (!($P) && $shifted =~ /\w/)
 {
   @files = split /,/, $shifted;
   foreach (@files)
   {
     warn "You asked me to eat \"$_\" and I\'m going to taste it and see if its real.\n" if $D;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   $!\n   (...because of this error, i'm going to stop)\n" unless -e $_;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   It\'s a directory, not a file.\n   (try this):\n\nls $_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
     warn "Yep, tastes like a file.\n" if $D;
     eat($_);
   }
 }
 elsif ($P)
 {
   smoke();
 }
 elsif ($s)
 {
   subliminal_meaning($s);
 }
 elsif ($m)
 {
   individual_meaning($m);
 }
 else
 {
   die "$usage";
 }
}
else
{
 if (!($P) && $shifted =~ /\w/)
 {
   @files = split /,/, $shifted;
   foreach (@files)
   {
     warn "You asked me to eat \"$_\" and I\'m going to taste it and see if its real.\n" if $D;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   $!\n   (...because of this error, i'm going to stop)\n" unless -e $_;
     die "You fed me \"$_\" and I couldnt find it or couldnt touch it because...\n   It\'s a directory, not a file.\n   (try this):\n\nls $_ | perl -pe \'s/^/$0 $_\\//;' > shx && sh -x shx\n\n" if -d $_;
     warn "Yep, tastes like a file.\n" if $D;
     imagine($_);
   }
 }
 elsif ($P)
 {
   plumbing();
 }
 elsif ($s)
 {
   subliminal_meaning($s);
 }
 elsif ($m)
 {
   individual_meaning($m);
 }
 else
 {
   die "$usage";
 }
}