<?xml version="1.0" encoding="windows-1252"?>
<node id="611656" title="Re: Cleaning up a text file with compact regex" created="2007-04-24 01:58:09" updated="2007-04-23 21:58:09">
<type id="11">
note</type>
<author id="460657">
Samy_rio</author>
<data>
<field name="doctext">
&lt;p&gt;Try like this,&lt;/p&gt;
&lt;p&gt;&lt;i&gt;TIMTOWDI&lt;/i&gt;&lt;/p&gt;
&lt;code&gt;
use strict;
use warnings;
my @content = &lt;DATA&gt;;

@content = grep!/^\;/, @content;
print @content[6..$#content];
__DATA__
&lt;h3&gt;Warning&lt;/h3&gt;&lt;blockquote&gt;&lt;FONT SIZE=+1 color=#aa0000&gt;&lt;B&gt;
Circular contig    NC_001224.1    leftmost feature    0    Q0050    left neighbour    Q0275
&lt;/B&gt;&lt;/FONT&gt;&lt;/blockquote&gt;&lt;BR&gt;&lt;HR SIZE=3&gt;
&lt;h3&gt;Warning&lt;/h3&gt;&lt;blockquote&gt;&lt;FONT SIZE=+1 color=#aa0000&gt;&lt;B&gt;
Circular contig    NC_001224.1    rightmost feature    18    Q0275    right neighbour    Q0045
&lt;/B&gt;&lt;/FONT&gt;&lt;/blockquote&gt;&lt;BR&gt;&lt;HR SIZE=3&gt;
&gt;YJR152W|DAL5
TGATTTTGGATATTCATCAAAGGAAACCCTATTAATGGGTTTACCTACAGGTGCTGTTGA
ATTGGTAGGTTGTCCACTTTTTGGTATTCTAGCAGTTTATGCAGCCAATAAGAAGATACC
ATTTTGGAAATATAAGTTGAGTTGGGCTATTTTTGCAGCTGTCTTAGCATTGATTGCTAG
CTGCATGTTAGGGTTTGCAACAAACTCCAAAAAAGCAAGACTGGCTGGTGCTTACCTGTG
GTACATCTCGCCCGTCTCATTTATTTGCGTACTTTCCAATATCAGTGCGAATTCCTCGGG
ATATAGTAAAAAATGGACTGTATCTTCAATAAACTTAGTAGCATATGCTGCAGCTAACTT
GGCAGGACCACAAACCTTTATTGCTAAGCAGGCTCCTAAATATCATGGCGCTAAGGTCGC
TATGGTCGTATGTTATGCTGTTATGATCGTGCTTCTATCTATACTGCTCATCGTCAATTT
AAGGGAAAACAAGAGACGTGATAAGATAGCTGCCGAGAGAGGGTTCCCTGAAGAAACAGA
GAATTTAGAGTTTTCTGATTTGACTGATTTTGAAAATCCAAATTTCAGATACACTTTATG
&gt;YKR039W|GAP1
CCTAGCTGAACAGAGATTTCTGCCAGAAATCTTTTCCTACGTTGACCGTAAGGGTAGACC
ATTGGTGGGAATTGCTGTCACATCTGCATTCGGTCTTATTGCGTTTGTTGCCGCCTCCAA
AAAGGAAGGTGAAGTTTTCAACTGGTTACTAGCCTTGTCTGGGTTGTCATCTCTATTCAC
ATGGGGTGGTATCTGTATTTGTCACATTCGTTTCAGAAAGGCATTGGCCGCCCAAGGAAG
AGGCTTGGATGAATTGTCTTTCAAGTCTCCTACCGGTGTTTGGGGTTCCTACTGGGGGTT
ATTTATGGTTATTATTATGTTCATTGCCCAATTCTACGTTGCTGTATTCCCCGTGGGAGA
TTCTCCAAGTGCGGAAGGTTTCTTCGAAGCTTATCTATCCTTCCCACTTGTTATGGTTAT
GTACATCGGACACAAGATCTATAAGAGGAATTGGAAGCTTTTCATCCCAGCAGAAAAGAT
GGACATTGATACGGGTAGAAGAGAAGTCGATTTAGATTTGTTGAAACAAGAAATTGCAGA
AGAAAAGGCAATTATGGCCACAAAGCCAAGATGGTATAGAATCTGGAATTTCTGGTGTTA
;WARNING    invalid query foo
;WARNING    invalid query bar
;WARNING    invalid query qux
&lt;/code&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-460657"&gt;
&lt;p&gt;Regards,&lt;br&gt;Velusamy R.&lt;hr&gt;&lt;c&gt;eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';&lt;/c&gt;&lt;/p&gt;

&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
611652</field>
<field name="parent_node">
611652</field>
</data>
</node>
