#!/usr/bin/perl

use warnings;
use strict;

while(my $line=<DATA>){

my $name_pre=$line;
my$name=$line;
print "1: name $name * name_pre $name_pre \n";
$name=~ s/&amp;amp;/-/g;
print "2: name $name * name_pre $name_pre \n";
$name=~ s/&amp;/-/g;
print "3: name $name * name_pre $name_pre \n";

$name =~ s/-$//;
print "4: name $name * name_pre $name_pre \n";

$name_pre=~ s/\Q$name_pre\E/\Q$name\E/g;
print "5: name $name * name_pre $name_pre \n";

$name_pre =~ s/\\//g;
print "6: name $name * name_pre $name_pre \n";

}
__DATA__
fg-&amp;amp;&amp;+(and(we-
##</code><code>##

1: name fg-&amp;amp;&amp;+(and(we-
 * name_pre fg-&amp;amp;&amp;+(and(we-
 
2: name fg--&amp;+(and(we-
 * name_pre fg-&amp;amp;&amp;+(and(we-
 
3: name fg---+(and(we-
 * name_pre fg-&amp;amp;&amp;+(and(we-
 
4: name fg---+(and(we
 * name_pre fg-&amp;amp;&amp;+(and(we-
 
5: name fg---+(and(we
 * name_pre fg\-\-\-\+\(and\(we\
 
6: name fg---+(and(we
 * name_pre fg---+(and(we