while($line = <MYFILE>){
   if($line =~ m/<.[^>]*>/g){
   $new = substr($line,0,10);
  print "THE NEW LINE is : $new\n";
}
}