my $string = '13,130,213';
my $check = '13';

if ( grep { $_ eq $check } split(/,/, $string) ) {
    print "'${check}' is in '${string}'\n";
}
else {
    print "'${check}' is NOT in '${string}'\n";
}