$value1="a1 a2 a3 a4";
$value2=$value1;
while($value1=~/a(\d)/g){ print $1; last; }
while($value2=~/a(\d)/g){ print $1; }