my $in  = "foo";
my $out = $in =~ /#(.*)/ ? $1 : "";