Select Code to Download

$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";
}