#!/usr/bin/perl

use strict;
use warnings;

my $text="Hello World\n123\njust a short text\n";
my $r=\$text;

open my $f,'<',$r or die "open failed: $!";
print while <$f>;
close $f;