#!/bin/perl -w
use strict;

my $string = 'SLOT3=4,4,2!INT=115!VC=4!CS=270!PK=/';

my %parsed_values = map { split '=' } split '!', $string;
print $parsed_values{'INT'};