return $str =~ m/\@([^.]+)/ ? $1 : '';

##</code><code>##

sub name {
    return $1 if $_[0] =~ /@([^.*])\./;
}