Select Code to Download

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

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