while (<>) { my $word = substr($_,1); # Start with the second letter }