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