#!/usr/bin/perl -l # 08/24/06 09:30 => Thursday, August 24th 9:30am use Date::Parse; use Date::Format; use Date::Language; my $format = '%A, %B %o %l:%M%P'; my $language = Date::Language->new('English'); ## Start my $date_time = '08/24/06 09:30'; my $time = $language->str2time( $date_time ); # 1. Parse my $newtime = $language->time2str( $format, $time ); # 2. Output print $newtime; ## End