#!/usr/bin/env perl
use warnings;
use 5.14.0;

sub user_eingabe {
    print "Enter your string: ";
    my $your_string = <STDIN>;
    chomp $your_string;
    say "Your string: $your_string";
}

user_eingabe();