hostname: /                           level=incr,   1015 MB 00:00:54  26137 files
  hostname: /boot                       level=incr,   3731 KB 00:00:13      8 files
  hostname: /directory1          level=incr,   2796 MB 00:01:28     71 files
  hostname: /directory2                     level=incr,   1369 MB 00:53:51     36 files
--->truncated here<--

##</code><code>##

use constant
HOST_LINE => qr{
                \s+ \w+: \s [\/\w+] \s+         # host, partition
                level=\w+, \s+                  # backup level
                (\d+) \s+ (\w+) \s+             # amt backed up
                \d+:\d+:\d+  \s+                # Time
                (\d+) \s+ files                 # num. files
                }xms
              ;

my @lines = <STDIN>;

for my $line (@lines) {
    if ( $line =~ HOST_LINE ) {
        my ($files, $units, $amt_backed_up) = ($3, $2, $1);
        print "line - $line, units - $units, amt - $amt_backed_up, files $files\n";
    }
    else {
        print "here -> $line"
    }
}