$string1 = "This is test";

$retval  = chop( $string1 );

​

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

print " Character removed : $retval\n";

​