translate this send into perl

sfgroups_at_gmail.com
Date: 03/16/05 

Date: 16 Mar 2005 12:08:47 -0800

How will I do this in perl?

print 1 line of context before and after regexp, with line number
 # indicating where the regexp occurred (similar to "grep -A1 -B1")
 sed -n -e '/regexp/{=;x;1!p;g;$!N;p;D;}' -e h

Thanks
Sundaram