@array = ();
while (<>) {
push @array, $1 if /#BOOKTITLE#¥((.+)¥)/;
}
print join ("¥n", sort @array), "¥n";