# Pastebin NR5o6KvB
perl6 -I. -MRed -e '                          
use Red::AST::Generic::Infix;
model Bla { has $!id is serial; has Int $.ble is column{ :deflate{ S:g/a/_/ } }; }
my $*RED-DB = database "SQLite";
Bla.^create-table;

Bla.^create: :ble<abacate>;

.say for Bla.^all.grep: *.ble eq (S:g/a/_/ given "abacate")  

'
Bla.new(ble => "_b_c_te")