$a =~ /(\d+)/;
$a1 = $1;

を１行かけませんか？