$var = ".declare book_num                     a13";
$var =~ /^\.\w+\s+(\w+)/;
print $1;