Я не могу войти в свою учетную запись после сброса пароля

Сperl

$ perl -F'\t' -lane '@non_ref_cols = grep { $F[$_] ne "REF" } 0..$#F if $. == 1;
                     print join "\t", @F[@non_ref_cols]' ip.txt
GENE    ALT
AKT     G
AKT     G

• -F'\t'использовать табуляцию в качестве разделителя полей
• @non_ref_cols = grep { $F[$_] ne "REF" } 0..$#F if $. == 1для строки заголовка получить индекс всех полей, которые НЕ являютсяREF
• print join "\t", @F[@non_ref_cols]вывести все поля, используя массив индексов, который мы получили для строки заголовка, используя табуляцию в качестве разделителя полей