/usr/bin/perl -i.bak

@pars= split /\n\n/, join '', <>;
for( @pars ){
  next if /pattern1/;
  print $newpara if /pattern2/;
  print;
  print "\n\n";
}