#!/usr/bin/perl -w

use strict;

my $long_string = "Long String";

print $long_string . "\n";

#  limit string to 3 characters in length
$long_string = substr($long_string, 0, 3);

print $long_string . "\n";