/([^!]*)!([^!]*)!([^!]*)!([^!]*)!([^!]*)/

##</code><code>##

split /!/

##</code><code>##

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

##</code><code>##

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