$file = /windows/d/Perl/test/3/5/23/7