[mistwang]

I am not a perl programmer, probably cannot give your the correct answer. You should refer to a Perl programming book.
In shell script I can use:

variable=`fgrep date $file`

to get result from the shell command, not sure about Perl though.