@f= glob("*.jpg");
foreach (@f){
	$nf= $_;
	$nf =~ s/0(\d)/$1/g;
	$nf =~ s/_/-/g;
	print $_ ." ". $nf."\n";
	rename $_, $nf;
}
