use Text::Diff qw(diff);
[...]
$diff = diff "$config_dir/$config_old", "$config_dir/$config_new", 
        { STYLE => "OldStyle"};
@diff = split '\n', $diff;
[...]