Select Code to Download

while (m/\G(<[^>]*>|#[^#]*#|[^#<]+)/gc) 
{
    push @pieces, $1;
}

use strict;
use warnings 'all';
...
        return split(/\s+/,$_[0]);
    }
}