#!/usr/bin/perl -w
# (c) Julius Plenz <jp@cvmx.de> http://www.plenz.com/

use strict;
$\ = "\n";

my $aliasfile = $ENV{"HOME"} . '/.mutt/alias';

open (ALIAS, $aliasfile);

while (<ALIAS>) {
    if (/^alias/ && /\# =\w+/) {
        s/alias\s+\w+\s+\([^\)]+\)\s+([^ @]+@\S+)\s+\#\s+(=\S+)\s*(\w+)*/fcc-save-hook $1 $2/;
        chomp;
        print;
    }
}

close (ALIAS);
# vim: ft=perl et