Select Code to Download

foreach(@col){
        my $celldata=$_;
        $celldata=~s/<(set|x)?aln;(.*?)>//g;
...
            $right_str=$2;              print "$left_str === $operator
+ === $right_str\n";
}
}