my $int = ($rec =~ /^[^!]*!INT=([0-9]+)!/);