#!/usr/bin/perl
my $damn_string = "This is so cool...\nThis is less cool.\nThis sucks.\n";

tie *H, 'str', $damn_string;

while(<H>) {
    print "$_\n";
}

package str;
use Tie::Handle;
my @a;

sub TIEHANDLE {
    my $i = bless \$i, shift;
    @a = split "\n", shift;
    return $i;
}

sub READLINE {
    return shift @a;
}