jm/gist:2567

## gistfile1.rbx
DIR=/(.*)\.(.*)/

Dir.entries(Dir.pwd).each do |e|
  next unless e.match(/[a-z]/)
  puts 'moving ' + e + ' to ' + e.gsub(DIR, '\1')
  `mkdir #{e.gsub(DIR, '\1')}`
  `mv #{e} #{e.gsub(/(.*)\.(.*)/, '\1')}/`
end
	DIR=/(.)\.(.)/

	Dir.entries(Dir.pwd).each do \|e\|
	next unless e.match(/[a-z]/)
	puts 'moving ' + e + ' to ' + e.gsub(DIR, '\1')
	`mkdir #{e.gsub(DIR, '\1')}`
	`mv #{e} #{e.gsub(/(.)\.(.)/, '\1')}/`
	end