RosettaCodeData/Task/Substring-Top-and-tail/Perl/substring-top-and-tail-1.pl

print substr("knight",1), "\n";        # strip first character
print substr("socks", 0, -1), "\n";    # strip last character
print substr("brooms", 1, -1), "\n";   # strip both first and last characters