Select Code to Download

#!/usr/bin/perl  
use warnings;
$pro="ABCDEFGH"; 
...
# To get the last tetra:
 $last=join('',@pro); print"\n $last\n"; # Line 15
exit;

Microsoft Windows [Version 6.1.7600]
C:\Users\x>cd desktop
C:\Users\x\Desktop>try.pl
...
 DEFG  ->Starting at pos 2

 EFGH

 Tetra words are:
 ABCD  ->Starting at pos 1

...
 DEFG  ->Starting at pos 4

 EFGH  ->Starting at pos 5