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