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

my ($string) = 'abcdefghijklmnopqrstuvwxyz';
my ($fragment) =  substr($string, length($string) - 7);

print "...$fragment\n";