fg-(we.xml

##</code><code>##

#!/usr/bin/perl

while($line=<DATA>){

$Name_pre=$line;
$Name=$line;
$Name=~ s/&amp;amp;/-/g;
$Name=~ s/&amp;/-/g;

$Name =~ s/-$//g;

$Name_pre=~ s/$Name_pre/$Name/g;
print "The name is $Name_pre\n";

}
__DATA__
fg-&amp;amp;&amp;+(and(we-