#!/usr/local/bin/perl use strict; use warnings; for(){ print substr ($_,0,3),"\n" ; } __DATA__ accgttac