Select Code to Download

>perl -wMstrict -le
"my $prefix = qr{ (?i) \b tbgl_ }xms;
...
'TBGL_foo tBgL_bar' -> 'foo_gl bar_gl'
'tbgl tbglfoo tbgl_' -> 'tbgl tbglfoo tbgl_'
'tbgl_%$# Xtbgl_foo' -> 'tbgl_%$# Xtbgl_foo'