Select Code to Download

    my %SEARCH_FIELDS = (
        '1.X'   =>  [qw!RESULT_T LOTID DEVICEID SETUPID STEPID OMARK D
+IEPITCH WAFERID SLOTID CENTER DEFECTS!],
        '1.8'   =>  [qw!LOTID WAFERID RESULT_T CENTER SLOTID DEFECTS D
+EVICEID DIEPITCH OMARK SETUPID STEPID!],
    );

my %KLARF_REGEXP = (
    '1.X'   =>  {
...
                    'CENTER'    => qr/Field SampleCenterLocation \d \{
+(.+)\}/i,
                },
);

while ( <FILE> ){
    if ( $_ =~ $KLARF_REGEXP{$KLARF_VERSION}{$current_state} ){
...
        $current_state = shift @{$SEARCH_FIELDS{$KLARF_VERSION}};
    }
}