#!/usr/bin/perl
  
# Initialising a string
string = "GfG is a computer science portal";
  
# Calling the chop() functionA  = chop(string);
  
# Printing the chopped string and 
# removed character
print " Chopped String is :string\n";
print " Removed character is : $A\n";

Chopped String is : GfG is a computer science porta
Removed character is : l

#!/usr/bin/perl
  
# Initialising a string
string = "[1, 2, 3]";
  
# Calling the chop() functionA  = chop(string);
  
# Printing the chopped string and 
# removed character
print " Chopped String is :string\n";
print " Removed character is : $A\n";

Chopped String is : [1, 2, 3
Removed character is : ]