Woops! change $text =~ $_; --> $text = $_;