$string1 = "This is test";

$retval  = chomp( $string1 );

​

print " Choped String is : $string1\n";

print " Number of characters removed : $retval\n";

​

$string1 = "This is test\n";

$retval  = chomp( $string1 );

​

print " Choped String is : $string1\n";

print " Number of characters removed : $retval\n";

​