#!/usr/bin/perl -w
use strict;
#-----------------------
package StringHandle;
use overload 
    '<>' => sub {
        return shift @{$_[0]};
    };
    
sub new {
    my $class = shift;
    return bless [split /^/m, $_[0]], $class;
}

sub close {
    # does nothing. Just to emulate FileHandle
};
#-----------------------

package main;
use FileHandle;

my $param = shift;
my $text  = undef;

if ($param) {
    $text = new FileHandle $param 
        || die "can't open $param\n";
}
else {
    $text = new StringHandle "aaa\nbbb\nccc\nddd\n"
        || die "can't create new handle\n";
}

print while <$text>; # reads from either a file or a string

$text->close;
[download]

1. Could you think of any side effect that might affect my parser if I use this emulation?
2. Is there any module with a ready-to-use solution?
3. Currently, instead of using eof, I am checking if $_ is defined. How can I increase the robustness of this package to fool the eof function as well?

 _  _ _  _  
(_|| | |(_|><
 _|