my ($name) = $file=~/\\([^\\_]+)_/;