sub form_parse {
    my $state = 0;
    my @forms = ();
    my @lines = split /\n/, $_[0];