while (m/$REmove|$REnumber|$REcomment|$REeolcomment/g) {
	print $1;
}