>>99
よくばりなやっちゃな。元の文字列と取り出したい日付の例が無いと。
「『元禄』がパースできません」とか言われても困るで。


use strict;
use warnings;

use Regexp::Common qw/time/;
use Data::Dumper;

my $str = 'あれはそう。2002/03/24の出来事だ。私は当日の2:30pmに駅へと向かったのだ。';
my @times = $str =~ /($RE{time}{ymd}|$RE{time}{hms})/g;
print Dumper \@times;

__END__

$VAR1 = [
'2002/03/24',
'2:30pm'
];