Select Code to Download

$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";