in reply to split questions

Using an array comes to mind:

my @response = split /\,/, $response, 39;