Question

I am trying to figure out why the chop function is not working for me when I try to take input from the user:

my $string = <STDIN>;
my $chr = chop($string);
print "String: $string\n";
print "Char: $chr\n";

output

perl chop.pl
hello
String: hello
Char:

But if I use a string, then it works!

my $string = "frong";
my $chr = chop($string);
print "String: $string\n";
print "Char: $chr\n";

output
[583]

perl chop.pl
String: fron
Char: g

Answer 1

When you pass input from console, chop is chopping the newline that is at the end of the string, which is present when you hit Enter. While your string does not contain that.