#!/bin/bash mkdir -p todel for i in "$@" do perl -e 'while(<>) { my ($date, $time); my $line = $_; next if (/^$/); /^(\S+) (\S+):/; ($date, $time) = ($1, $2); print "$line" if ($time =~ /0$/); print "\n" if ($line =~ /Aux5/ and $time =~ /0$/); }' < $i | lzma > $i.lzma mv $i todel done rm -rf todel