$somename =~ s/\w.*//;
(´･ω･`)ｼｮﾎﾞｰﾝ