Help for this page
$tmp =~s/TBGL_([a-z]+(\.[a-z]+)?)/$1_gl/i;
$tmp =~s/TBGL_([a-z]+)/$1_gl/i;
#!/usr/bin/perl ... print "$tmp\n\n"; }