use strict;
use warnings;

my $input;

do{
    print "Geben sie einen String mit dem Anfangsbuchstaben 'A' ein:\n>>> ";
    $input = <>;
    chomp $input;
}until $input =~ /^A/;