Select Code to Download

use strict;
use warnings;
...

$decoded_text =~ s/^\s+//;
print substr($decoded_text, 0, 400);