Perl | chop() Function

The chop() function in Perl is used to remove the last character from the input string.

Syntax: chop(String)

Parameters:
String : It is the input string whose last characters are removed.

Returns: the last removed character.

Example 1:

#!/usr/bin/perl

# Initialising a string
$string = "GfG is a computer science portal";

# Calling the chop() function
$A  = chop($string);

# Printing the chopped string and
# removed character
print " Chopped String is : $string\n";
print " Removed character is : $A\n";

Output:

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

Example 2:

#!/usr/bin/perl

# Initialising a string
$string = "[1, 2, 3]";

# Calling the chop() function
$A  = chop($string);

# Printing the chopped string and
# removed character
print " Chopped String is : $string\n";
print " Removed character is : $A\n";

Output :

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