Shell Programming and Scripting

if($var =~ /^(\d+)%.*(\d +)%$/) {
   my ($part1, $part2)=($1,$2);
}

$var1 = "2% / 51%";
if($var1 =~ /^(\d+)%.*(\d +)%$/) {
   my ($part1, $part2)=($1,$2);
}
print $part1;
print "\n";
print $part2;

$var1 = "9% / 41%"; $z=0;
while($var1 =~ m/(\d+)/g) {
 $item[$z]=$1;
 $z++;
}
print $item[0];
print $item[1];

my ($var1,$var2,$var3);
$var1 = "2% / 51%";
if($var1 =~ /^(\d+)%.*?(\d+)%$/) {
   ($part1, $part2)=($1,$2);
}
print $part1;
print "\n";
print $part2;