Select Code to Download

my %files = ( colors => 'colors.dat',
              tests  => 'test.txt',
...

open IN, "<$filepath/$files{$siteinfo[1]}" or
    someErrorRoutine( "Can't open $filepath/$siteinfo[1] for reading: 
+$!" );

 
$siteinfo[1] =~ /^[^.]+/(\w+\.\w+)$/ or
    someErrorRoutine( "Regex failed" );
my $fileToOpen = $1; # $fileToOpen untainted