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