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

##</code><code>##

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