if ( /^test\d+/.*/ )   {print "$_\n";)