my $ramfile = "The\nquick\nbrown\nfox\n";
open RAM, "<", \$ramfile;
print while <RAM>;
The

quick

brown

fox