Исправьте синтаксическую ошибку в if, нигде найти не могу как подобное (две проверки по рег.выражениям) на перле правильно пишется.
print "founded TAG:$tag NAME: $attr->{'name'} VALUE: $attr->{'value'}\n"
if $tag =~ m/^input/i && $attr->{'name'} =~ m/207$/i;
Памагите! ;-)