if ( $form_dump_after =~ m{(<li>average_)(.*?)(</li>)}s ) {
        $inside_li = "average_".$2;
        print $fh "Value of \$inside_li: \n$inside_li \n";
    }