Extraire des données à partir du fichier log avec perl

bsr
j'ai un fichier log que je doit extraire des donnés spécifiques tel que: status, from, to
mon fichiers ets de la forme:
Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) dsn=5.0.0, status=sent at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***]; Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***]Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***]Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***]Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***]Mar 2 04:05:40 smtp postfix/anvil[16419]: statistics: max connection rate 1/60s for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/anvil[***]: statistics: max connection count 1 for (smtp:127.0.0.1) at Mar 2 04:02:19
Mar 2 04:05:40 smtp postfix/***[****]: statistics: max cache size 1 at Mar 2 04:02:19
Mar 2 04:18:32 smtp /***[****]: ****: from=<rim@gmail>, size=98171, nr=9 (queue active)
Mar 2 04:18:32 smtp [****]: ****: from=<rita@com>, size=166151, npt=88 (queue active)
Mar 2 04:18:32 smtp [***] dsn=1.1.1, status=sent

mon essay ne marche tjrs pas:

use strict;
use warnings;

open LIRE,"fichier_test.txt"
or die "E/S : $!\n";

my @tmp = <LIRE>;
my @log = grep {/status/} @tmp;

grep {s/.*(from\s*to).*(status.*)/$1: $2/} @log;
print map {$_->[0]}

map {[$_,(split /=/)[1]]};

<>;