You need the s modifier to allow .* to match a newline character:

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