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

Chopped String is : GfG is a computer science portal
Number of Characters removed : 1

#!/usr/bin/perl
  
# Initialising two strings
string1 = "Geeks for Geeks\n\n";string2 = "Welcomes you all\n";
  
# Calling the chomp() function
A  = chomp(string1, string2);
  
# Printing the chopped string and 
# removed trailing newline character
print "Chopped String is :string1string2\n";
print "Number of Characters removed :A\n";

Chopped String is : Geeks for Geeks
Welcomes you all
Number of Characters removed : 2