$a = "C:\Communication...";

($b) = $a =~ m/.*\\(.*)/;