categorized answer QandAEditors The following answer uses regexes. <code> # UK-style my $in_date = '30-04-2007'; (my $db_date = $in_date) =~ s/(\d\d)-(\d\d)-(\d\d\d\d)/$3-$2-$1/; (my $pr_date = $db_date) =~ s/(\d\d\d\d)-(\d\d)-(\d\d)/$3-$2-$1/; print "in: $in_date; db: $db_date; pr: $pr_date\n"; # in: 30-04-2007; db: 2007-04-30; pr: 30-04-2007 </code> <code> # US-style my $in_date = '05-14-2007'; (my $db_date = $in_date) =~ s/(\d\d)-(\d\d)-(\d\d\d\d)/$3-$1-$2/; (my $pr_date = $db_date) =~ s/(\d\d\d\d)-(\d\d)-(\d\d)/$2-$3-$1/; print "in: $in_date; db: $db_date; pr: $pr_date\n"; # in: 05-14-2007; db: 2007-05-14; pr: 05-14-2007 </code> Instead of rolling your own, some [cpan://CPAN modules] might help, such as [cpan://Date::Tiny], [cpan://Date::Formatter], or [cpan://Date::Simple]. They look promising but I haven't tried them myself. 614222