I have a file of contents: ----------- 1 6 2 7 3 8 4 9 5 10 ---------- I want a file with content:
1 2 3 4 5 6 7 8 9 10 -------- I have written a few lines of following code but it does not work as expected : ------------------------------------------- #!/usr/bin/perl use v5.10; use strict; use warnings; open(FILE, "numbers.txt") or die "can not open file . $!\n"; open(FILE1, ">sumfile.txt") or die "can not open file . $!\n"; my @lines = <FILE>; chomp @lines; my $c=0; while ($c <= $#lines){ if ($lines[$c] =~ /(\w+)\s+(\w+)/){ print FILE1 "$1\n"; print FILE1 "$2"; } $c++; } close FILE; close FILE1; -------------------------- Please guide me .