my $in_string = "Hello world.\n";
my $out_string = '';
open my $infh, '<', \$in_string;
open my $outfh, '>', \$out_string;

while(<$infh>) {
    print $outfh "$.: $_";
}

print $out_string; # prints 1: Hello world.\n