#!/usr/bin/perl

$a = "I like PERL";

print "String is : $a\n";
# prints "String is : I like PERL

$c = chop($a);

print "Chopped character : $c\n";
# prints "Chopped character : L

print "Chopped string : $a\n";
# prints "Chopped string : I like PER