0846デフォルトの名無しさん垢版2017/09/21(木) 21:26:21.38ID:YjUNPIX/ $str2="あaかbさcたdなe"; $str1="あかさたな"; $str2 =~ s/[^$str1]//g; print $str2; # あかさたな