ls sent-mail-* | perl -MDate::Manip -ne 'chomp; /^sent-mail-(.+)$/ or die $_; system "mv", "-vi", $_, UnixDate(ParseDate($1), "%Y-%m") . "-sent-mail"'