Поиск одного значения для импорта в LibreOffice Calc

cat 1.txt | perl -lne 'print($3,"-",$2,"-",$1,"T",$4,":",$5,":",$6,";",$7),if /^([0-9]{2})\/([0-9]{2})\/([0-9]{4})\ ([0-9]{2}):([0-9]{2}):([0-9]{2}).*10\.Воздух.*Pвх=([0-9]+\.[0-9]+)\ Pвых.*АЦП1/' > 2.csv

Для системы захолаживания

cat 2.txt | perl -lne 'print($3,"-",$2,"-",$1,"T",$4,":",$5,":",$6,";",$7,";",$8,";",$9,";",$10),if /^([0-9]{2})\/([0-9]{2})\/([0-9]{4})\ ([0-9]{2}):([0-9]{2}):([0-9]{2}).*Колонки=(\-*\d+\.\d+)\/(\-*\d+\.\d+).*Хладагент=([\-\ ]\d+\.\d+)\ Uнасоса=([\-\ ]\d+\.\d+)/'| sed 's/\./,/g' > 6.csv