#!/usr/bin/perl @dir = `ls`; foreach $file (@dir) { chop($file); $exifout=`exiftime -tc $file`; if ($exifout =~ /Created/ ){ @datetime=split(/\s/,$exifout); @parta=split(/:/,$datetime[2]); $partb=$datetime[3]; $partaa= $parta[0]; $partab= "$parta[1]$parta[2]"; $partb =~ s/://g; $joi = "_"; $name = "$partaa$joi$partab$joi$partb.jpg"; `mv $file $name`; } }