To delete first few letters in a string in a file

[RaviRajhulk]

I have got a file called filelist with content

f+    f    templatedata\poc\Ravi\Appfolder\filelist.xml    
f+    f    templatedata\poc\Ravi\Appfolder\testdeploy.xml    
f    -    templatedata\poc\Ravi\Appfolder\testdeploy2.xml    
f    -    templatedata\poc\Ravi\Webfolder\apples.bmp    
 

I need to remove the first few characters in the begining and need to have only

 
templatedata\poc\Ravi\Appfolder\filelist.xml
templatedata\poc\Ravi\Appfolder\testdeploy.xml
templatedata\poc\Ravi\Appfolder\testdeploy2.xml
templatedata\poc\Ravi\Webfolder\apples.bmp
 

so that i can compare the files and write the appfolder and webfolder contents to different files...but because of these unwanted characters f+ f ,I am not able to compare,.........how to remove these unwanted letters from the begining

My code for comparing is as follows

open (MyFileHandle,"<C\:\\home\\filelist.txt") or die("File Not Found\n");
open (MyWebFileHandle,">C\:\\home\\Weblist.txt") or die("File Open Error");
open (MyAppFileHandle,">C\:\\home\\Weblist.txt") or die("File Open Error");
 
until((eof(MyFileHandle)) && (seek(MyFileHandle,0,0) != eof(MyFileHandle)))
{
 
    $Text = readline(MyFileHandle);
    if(defined($Text)) 
    {
        if ($Text=~/^templatedata\\poc\\Ravi\\Appfolder/) 
        {
         print MyAppFileHandle $Text;
         print MyAppFileHandle "\n";
        }
        elsif ($Text=~/^templatedata\\poc\\Ravi\\Webfolder/)
        {
        print MyWebFileHandle $Text;
        print MyWebFileHandle "\n";
        }
            }
}
 

[numberwhun]

I have not tested your code, but I went a completely different route and chose to use the split function, which is part of Perl. Here is what I tried that works:

use strict;
use warnings;
 
my $field1;
my $field2;
my $field3;
 
open(FILE, "<data.txt") or die "Cannot open data.txt:  $!";
open(FILE2, ">newdata.txt") or die "Cannot oen newdata.txt: $!";
 
while(<FILE>)
{
    ($field1, $field2, $field3) = split(/\s+/, $_);
    print FILE2 ("$field3\n");
}
 
 
close(FILE);
clost(FILE2);
 

Also, when you place text or code in the forums, please be sure to enclose it in code tags as I have done to your original post. This makes for better readability.

Regards,

Jeff