#!/usr/bin/perl -slw

use strict;

my $text = "Hello World\n123\na short text\n";
my $r = $text;
open my $fh, '<', \$r or die $!;

my @lines = <$fh>;
binmode $fh, ":raw";
close $fh or die "unable to close: $!";

print @lines;