local $/= "/>"; 

while (<>){
  if($_ =~ m/<(\w+)\s+(.*?)\s*\/>/i)
  {
  mache etwas
  }
}