my ($foo, $bar) = (123, 456);
my $base_string = "#200";
$base_string =~ /^#/ ? $foo = $'
                     : $bar = $base_string;
print "$foo $bar\n";