$str =~ s/(Title)(.*?)\n(.*?)(Author)/$1$2$3$4/gs;