Поиск одного значения для импорта в 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