perlで範囲を指定してその中から特定の文字列を抜き出すということは可能でしょうか？

たとえば
SELECT A FROM テーブル名 WHERE 〜

という文があったときにFROMからWHEREの間のテーブル名だけを
抜き出すときはどのようにするのでしょうか？