#!/usr/local/bin/perl
use strict;
use warnings;

my $string = "keito";
my $first = substr($string, 0,3);
print "$first\n";