$str = 'SELECT ..... where a.owner = b.owner && c.index_owner=d.owner....'; $str =~ m/\.(owner|index_owner)\s*=/ && do{ @alias = $str =~ m/(\w+)\.\w/g }; print "@alias";