http://www.perlmonks.org?node_id=925786


in reply to verbatim, non-interpolated assignment

Perhaps you can do it this way:

use strict ; use warnings ; print $_ while (<DATA>) ; __DATA__ RT @peteyorn: @Starbucks Thanks for putting the Break Up album for sal +e in your stores. \\ It's a great album! Nice work!