#!/usr/bin/perl -w

open INF,"alchemical-gromacs-complete.py";
@lines = <INF>;
$print = "TRUE";
open OUTF,">alchemical-gromacs.py";

foreach $l (@lines) 
{
    if ($l =~ /vvvvvvvv/) {$print="FALSE";}
    if ($print eq "TRUE") {print OUTF $l;}
    if ($l =~ /\^\^\^\^\^\^\^\^/) {$print="TRUE";}
}