open(FILE,'<some_file.txt') or die("cant open file: $!"); 
my $data;
for(<FILE>){ 
   if($_ !~ /:o:/){
       $data .= $_;
   }else{
       $data .= $_;
       last;
   }
}
close FILE;