Select Code to Download

#!/usr/bin/env perl

...
my ($left_val, $right_val) = split /\s*-\s*/, $range;

print "data:$data $left_name:$left_val $right_name:$right_val\n";

data:info john:100 kent:200