if ( $string =~ /\\\\([\w-]+)\\([\w-]+)/) { 
  print"match: \$1=$1, \$2=$2\n";
}