$line =~ s/TITLE#(.*)#/$1/;
chomp($1);