my $last_one = ( split, /\\\\/, $string )[ -1 ]

##</code><code>##

my $last_one = ( $string =~ /([^\\](?!.*\\).*)$/ )[ 0 ];