#!/usr/local/bin/perl -w

use strict;

my $email='goblins@under.the.floorboards.com';
my $length=15;
my $result= eval { substr($email, $length-3) = '...'; return $email };
print $@?$email:$result;