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