Select Code to Download

$ cat file
*start*of*junk*data*this is all junk data 01*end*of*junk*data*binary d
+ata binary data binary data
*start*of*junk*data*this is all junk data 02*end*of*junk*data*binary d
+ata binary data binary data
*start*of*junk*data*this is all junk data 03*end*of*junk*data*binary d
+ata binary data binary data
*start*of*junk*data*this is all junk data 04*end*of*junk*data*binary d
+ata binary data binary data

#!/usr/bin/perl -w
use strict;
...
}

close (FILE);