Select Code to Download

sub prompt_read 
{
...

$response =~ s/^\s*//;  # these 2 statements do the same
$response =~ s/\s*$//;  # but slightly slower