print values { map { (/\/(\d+)\./)[0] => $_ } sort <DATA> };