perl -e 'foreach (<2017*>) {
	$new=$_; 
	$new =~ s/2017/red_2017/; 
	rename($_, $new); 
	print "$_\n";
}'

