#!/usr/bin/perl

my $str="ServiceCategoryName=(3,1,0,1,1,0)";

if ( $str =~ m/^ServiceCategoryName=/) {
printf($str);
my @array=split(/,/$str);
printf("my string ".$array[0]);
}