if ($base_string =~ /^#/) {
   $foo = $';
} else {
   $bar = $base_string;
}