print ((split(/¥./, $file[0]))[0]);