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