Select Code to Download

while(  $html !~ m#\G$#gc  ) {
    if(  $html =~ m#\G([^&<]+)#gc  ) {
        # $1 is plain text
...
        }
    }
}