#!/usr/bin/perl
use v5.22;
use Data::Dumper;

package oo_test{
    use overload '""' => 'stringify';
    
    sub new{
        my $class = shift;
        my $self = {};
        bless $self, $class;
        return $self;
    }
    
    sub getter{
        my $self = shift;
        while( my $line = <main::DATA> ){
        print $line;
            chomp $line;
            $self->{$.} = $line;
        }
        return $self;
    }
    
    sub stringify{
        my $self = shift;
        return join(" ", values %$self );
    }
};

package main;
my $test = oo_test->new();
$test->getter();
print "$test\n";


__DATA__
Hi
How 
Are
You