@results = map {/.+\/.+\/(.*).pm$/} @list;