perlスクリプト中に含まれる

use utf8;
use encoding "cp932";
use encoding 'euc-jp';
use   encoding   "iso-8859-2";

などの文にマッチして、「utf8」「cp932」「euc-jp」「iso-8859-2」の部分のみ取り出したいのですが
一発でできる方法があったら教えてください。