IN if услуги td IN or die no match num1 IN or die no match num2

$_ = <IN>
if m(услуги</td>)
{
  $_ = <IN>;
  m/>(\d*\.\d*)</ or die "no match!";
  $num1 = $1;
  
  $_ = <IN>;
  m/>(\d*\.\d*)</ or die "no match!";
  $num2 = $1;
}