#!perl -w

use File::Copy;
while (defined(my $filename = <*.tmb>)) {
	my $filename_2 = substr($filename,0,length($filename)-4)."t.jpg";
	move($filename,$filename_2);
}