Select Code to Download

open PAGE, "$website" or die "Cant open $website: $!";
flock (PAGE, 1) or die "Can't lock website file for reading";

while (my $line = (<PAGE>))  {
($Prop,$colour,$txtcol,$url360,$user,$your_name,$address,$town,$zip_co
+de,$country,$email,$telephone_no,$telephone_no2,$theme,$web_address,$
+ppemail,undef,undef,undef) = split "\t", $line;
...
    $onprop{$Prop} = [$Prop,$colour,$txtcol,$url360,$user,$your_name,$
+address,$town,$zip_code,$country,$email,$telephone_no,$telephone_no2,
+$theme,$web_address,$ppemail];
    push (@dataarray, $user);
}

while (<@dataarray>) {

        unless (! $item) {

        if ($item) { ...

        next unless $item;