sub func {
   my $s = @_ ? $_[0] : $_;
   ...
}

##</code><code>##

sub func {
   for (my $s = @_ ? $_[0] : $_) {
      ...
   }
}