Shell Programming and Scripting

Hi all

I need help on how to store two or more date formates captured using regex from an input sentence in PERL ? For example, I have an input sentence consisting of two dates such as :

The departure date is August 12, 2009 and arrival date is 20.08.2009.

Now, I want to capture the two dates and store them into two different variables as

var1 = August 12, 2009
var2 = 20.08.2009


How can I do this in perl?
Any help is appreciated
Thanks in advance.

Code:

 perl -wln -e 'print $1," ",$2,"\n",$3 if /^.*(Jan|Feb|Mar|Apr)\s([0-9]{2},\s[0-9]{4}).*([0-9]{2}\.[0-9]{2}\.[0-9]{4})\.$/'

1.Replace Jan with January or whatever you month format is
2.Put all the months in the list . I havent put all of them e.g after April, May.....
3.Your question is too specific. Are all the lines that you want to process have the same format?
Regards.

Code:

$inp="The departure date is August 14, 2009 and arrival date is 20.08.2009";


if ( $inp=~/.*\s(.* \d{2},\s\d{4}).*(\d{2}\.\d{2}\.\d{4})/ )
{
print $1 , "\n", $2 ;
}

Code:

3.Your question is too specific. Are all the lines that you want to process have the same format?

It may not be in the same format. There may be only one date or no date in a sentence.It can be any of the common date format in use. Also, I am picking the sentences from a file using default $_ .Pl help me on how to handle this.

Hello ,
my answer is wrt to $_ only the one by penchal bodhu is you can simply remove "$inp=~" and it would work.
In that case with varying data. you should give the varying inputs of which different solutions can be put up depending on the different patterns. Thats why I said that you gave only one set of i/p and designing a soln for it becomes too specific to work on a wide range of data or figures.
Regards.