print $1 if ($s =~ /.(\w+).(\w+)$/g);