Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    $r =~ s/(.*?)[ab](.*?)/$1\[ab\]$2/g;
    print "$r\n";
}