my $string = 'Hello, World';
chop $string;
print $string;