in reply to I need just the value

Thank you!it worked.

I have another question.

now my final.txt looks like below 
10
9999
456

[download]
how can I saperate these values by a delimiter, so I get my ouputfile,say output.txt, like below? 
10/9999/456

[download]

Replies are listed 'Best First'.
Re^2: I need just the value
by kennethk (Abbot) on Jun 02, 2009 at 03:12 UTC
    Another possibility would be using join, a la:

    print join '/', @array;

[reply]
[d/l]
Re^2: I need just the value
by ww (Archbishop) on Jun 02, 2009 at 02:47 UTC 
    #!/usr/bin/perl
use strict;
use warnings;
# 767362


my $out_line;
my @line = <DATA>;
for my $line (@line) {
    chomp $line;
    $out_line .= ( $line . "/" );
}
if ( $out_line =~ /(.*)\/$/ ) {  # capture everything before a slash i
+mmediately preceding EOL
    $out_line = $1;          # and overwrite $out_line with what you c
+aptured
}
print $out_line . "\n";

__DATA__
10
9999
456
...

    [download]

    Output:   10/9999/456/...

    See perlretut and Tutorials. (And, as may be obvious, it would probably be smarter to incorporate this into the previous solution, rather than create a separate script)

[reply]
[d/l]
[select]
      That looks very complicated. Simpler: 
      while (<>) {
   print("/") if $. != 1;
   print(/=(.*)/);
}
print("\n");

      [download]

      (Works from your original input)

      Update: By the way, the following is wasteful: 

      my @line = <DATA>;
for my $line (@line) {

      [download]

      It loads the entire file into memory for nothing. Use the following instead: 

      while (my $line = <DATA>) {

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom