#!/usr/bin/perl
use strict;
use warnings;
while(my $rec = <DATA>){
chomp($rec);
#the // default delimiters for a match can be changed to arbitrary delimiters
#The following regex is delimited by {} because pattern contains forward slashes
$rec =~ s{/English-Folder/(.+)_e\.shtml}{/French-Folder/$1_f.shtml};
print $rec, "\n";
}
__DATA__
/English-Folder/temp.php.u1conflict
/English-Folder/temp-post01.html
/English-Folder/temp-post.html
/English-Folder/temp.txt
/English-Folder/target01_e.shtml
/English-Folder/testcomponent.html
/English-Folder/target02_e.shtml
/English-Folder/zengarden-sample.html
Outputs: /English-Folder/temp.php.u1conflict
/English-Folder/temp-post01.html
/English-Folder/temp-post.html
/English-Folder/temp.txt
/French-Folder/target01_f.shtml
/English-Folder/testcomponent.html
/French-Folder/target02_f.shtml
/English-Folder/zengarden-sample.html
d5e5
Practically a Posting Shark
810 posts since Sep 2009
Reputation Points: 159
Solved Threads: 159