#!/usr/bin/perl

use strict;

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

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


##</code><code>##

$ ./fix.pl 
Global symbol "$lines" requires explicit package name at ./fix.pl line 5.
Global symbol "$word" requires explicit package name at ./fix.pl line 6.
Global symbol "$lines" requires explicit package name at ./fix.pl line 6.
Global symbol "$word" requires explicit package name at ./fix.pl line 8.
Execution of ./fix.pl aborted due to compilation errors.

##</code><code>##

#!/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 


##</code><code>##

$ ./fix.pl 
6
8
7
8




##</code><code>##

#!/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 


##</code><code>##

$ ./fix.pl 
t
t
t
s