opendir(DIR,"./");
open DATA,">extra.js";
while($_=readdir(DIR)){
	m/_extra/
	and print
	and open FH,$_
	and @a = <FH>
	and print DATA @a
}