$val=(split(/\./,$bar))[0];

##</code><code>##

sub flexible {
....
   if (wantarray) {
      return @arr;
   } else {
      return $scal;
   }
}