Select Code to Download

#!/usr/bin/perl 
$filename="p1";
...
    mkdir("$filename/$_",0777) || print "$!\n";
    }
}

while(<plate_file>) {
    if(/(.*)\n/){
...
        push(@data,@row);
    }
}