$string = "abc#def#ghi";

($x) = $string =~ /#(.*?)$/;
print "$x\n";

($x) = reverse($string) =~ /^(.*?)#/;
$x = reverse $x;
print "$x\n";

----
def#ghi
ghi