perl -le '$str="20050423"; $str =~m /(\d{4})(\d{2})(\d{2})/; print $3,".",$2,".",$1'