You are not capturing anything. You must use the ().

$in =~ s/([a-zA-Z])\n([a-zA-Z])/$1\ $2/g;
[download]