store rest of the lines in a array after a matching pattern is found

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Im trying to match a pattern from a line in file and then print rest of the line to an array split by comma and print elements of it

So I tried a perl code

#!/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]);
}
[download]

Back to Seekers of Perl Wisdom