change file contents using perl

["Anand D Sankruthi" <anandd@xxxxxxxxxxxx>]

Hi all,
I have a set of 6 lines in a file. i want to replace all these lines by a
set of new lines (which is a subset of the old lines). can any one tell me
the easiest way of doing this using perl??