#!/usr/local/bin/perl use strict; use warnings; my $string = "keito"; my $first = substr($string, 1,3); print "$first\n";