my $x= '1 2 3kg 4 5 6 7 8 9 10Kg 11 12 13 kg 14 15';
chomp $x;
print "Values in variabe x are : \n$x\n";
$x =~ m/(?<weight>\d+)\s*/g;
my $weight = $1;
print "Matched pattern is : $+{weight}\n";
print "Values in variabe x are : \n$x\n";
#print "Weights are : $1 Kg\n" while $x=~/G(\d+)\s*kg\s*/ig;  #print -1
#print "Weights are : $1 Kg\n" while $x=~/(\d+)\s*kg\s*/ig;  #print -2
print "Weights are : $1 Kg\n" while $x=~/(\d+)\s*kg\s*/i;   #print -3