Dear Monks, My code parses one file and prints the output with some added information.
My sample File input is :- 
>JAVA3_70_303NM:2:1:184:1240
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 34 40 40 40 40 40 40 4
+0 37 40 40
 40 40 40 40 24 30 40 40 17
>PERL3_70_303NM:2:1:234:1166
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 4
+0 40 40 40
 40 40 40 40 17 40 40 40 40
>PYTHON3_70_303NM:2:1:202:1171
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 14 40 40 13 18 40 35 3
+8 34 40 40
 40 4 37 28 40 40 40 40 2

[download]
My output is coming like this with a faulty added characters in the begining of the parsed file like this:- My faulty Output:- 
JAVA3_70_303NM:2:1:184:1240    length=44
 3 70 303 2 1 184 1240 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40
+ 34 40 40 40 40 40 40 40 37 40 40 40 40 40 40 24 30 40 40 17
PERL3_70_303NM:2:1:234:1166    length=44
 3 70 303 2 1 234 1166 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40
+ 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 17 40 40 40 40
PYTHON3_70_303NM:2:1:202:1171    length=44
 3 70 303 2 1 202 1171 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40
+ 14 40 40 13 18 40 35 38 34 40 40 40 4 37 28 40 40 40 40 21

[download]
These extra (3 70 303) characters are coming in every line begining. My code is here:- 
#!/usr/bin/perl -w
use strict;

$fn=$ARGV[0];
open(FD,"$fn") || die("Can't open: $!");

$/ = '>';

while ( <FD> ) {

    chomp;

    if($_=~ /(\S+)/xmsg){
    

    my $name = $1;

    my @numbers = split /\D+/;
    my $values = @numbers;



        print "$name\tlength=$values\n";
        print "@numbers\n";

 }

}
close FD;

[download]
Here length specifies number of times 10's or 20's or ..... occur in each record.
Can you please help me to identify the problem.
Thanks

In reply to Extra characters problem while parsing a file by ashnator

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.