my $formatted_date = time_stamp( $date_created )
    or warn "Invalid date: '$date_created'";

sub time_stamp
{
    my $date = shift;
    return "$2/$3/$1" if $date =~ /(\d{4}(\d{2})(\d{2})/;
}