Select Code to Download

$var = ".declare book_num                     a13";
$var = ".declare cube_no        9999999.999";

$var =~ s/^(\.\w+\s+)(\w+)(\s+.)/$2/g;