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