Select Code to Download

perl -e "'FGTXYZGTFABCGHABC' =~ /[XYZ]{3}([A-Za-z]{0,21})[ABC]{3}/; 
         print $-[0] . ', ' . length($1);"
__OUTPUT__
3, 8