#!/usr/bin/perl
use strict;
my $keyword = 'Three-element literal';
my $string = 'The fred array gets a Three-element literal';

if ($keyword =~ substr ($string, 0, length $keyword)){
    print "it is match!\n";
}else {
    print "it is not match!\n";
}
    exit;