Select Code to Download

#!/usr/bin/perl

...
my $target = 5;

print $data =~ /\b$target,((?:\d+,){3})/g, "\n";

6,7,8,4,3,2,