my $pin = 1234;
my $guthaben = 655.36;

say "Geben Sie ihre PIN ein:";
my $pin_eingabe = <STDIN>

if $pin == $pin_eingabe {
    print "Geben Sie den Betrag ein, den Sie abheben wollen:\n";
    my $auszahlung = <STDIN>
    if ($auszahlung <= $guthaben) {
        say "Nehmen Sie die $auszahlung Euro mit...";
        $guthaben = $guthaben - $auszahlung;
    } else {
        print "So viel haben Sie nicht auf dem Konto\n";
    }
} else {
    say "PIN falsch, Karte wird einbehalten";
}

String found where operator expected at geldautomat.pl line 4, near "say "Geben Sie ihre PIN ein:""
        (Do you need to predeclare say?)
String found where operator expected at geldautomat.pl line 11, near "say "Nehmen Sie die $auszahlung Euro mit...""
        (Do you need to predeclare say?)
String found where operator expected at geldautomat.pl line 17, near "say "PIN falsch, Karte wird einbehalten""
        (Do you need to predeclare say?)
syntax error at geldautomat.pl line 4, near "say "Geben Sie ihre PIN ein:""
syntax error at geldautomat.pl line 9, near "my "
syntax error at geldautomat.pl line 13, near "}"