#!/usr/bin/perl

use strict;

while (my $lines = <DATA>){
    my ($word) = split "", $lines;
    
    print $word."\n";
}

print "\n\n";
exit 0;
__END__
tutor
teacher
tinker
sailor