# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Common;
use Maasha::Biopieces;
foreach $file ( sort @files )
{
- if ( $file =~ /\/([a-z0-9_]+)\.wiki$/ )
+ if ( $file =~ /\/([BGa-z0-9_]+)\.wiki$/ )
{
$program = $1;