my $input = <STDIN>;
chomp $input; # zeilenumbruch entfernen

# oder kürzer:
chomp( my $input = <STDIN> );