my $ascii;

foreach ( 1 .. $times ) {
    $ascii .= chr <STDIN>;
}

print $ascii;