print "Please type four characters...\n";

for (1 .. 4) {
    $char = <>;
    $word .= $char;
}

print "You typed: " , $word;