The problem is that your ?: line is parsed by Perl as:

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

Add parens to your expression to get the operations to occur in the right manner:

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