Select Code to Download

use strict; 
use warnings; 
...
$text =~ s/\x1b[^A-Z]+[A-Z]//g; 
 
print "Remaining text is '$text'\n";

$ perl foobar.pl
Remaining text is '<p>Simple code to connect and login to HP Procurve 
+use(ing) Expect below, generates following output to STDOUT and PATH/
+FILE</p><p>Connecting
...
</p>
'