($base_string =~ /^#/ ? ($foo = $') : $bar)
  = $base_string;

##</code><code>##

$base_string =~ /^#/ ?
  ($foo = $') :
  ($bar = $base_string);