#!/usr/bin/perl
$a=fredd;
print chop "$a"