sub name
{
entry ($$){
}
entry (\$\$){
}
} 

##</code><code>##

if ($line=~/^\s*(.+)$/) {
return $1;
}