perlで「右から一文字が@ならば」「最後の一文字が@だったら」「@で終わっていたら」という表現 関数で書くと if(substr($str,length($str)-1)=='@'){...} 正規表現で書くと if($str =~ /@$/){...} '@'を''に置換する $str =~ s/@//;