%status = (    1 => 'Stopped',        2 => 'Start Pending',
        3 => 'Stop Pending',    4 => 'Running',
        5 => 'Continue Pending',6 => 'Pause Pending',
        7 => 'Paused');
[download]

    $tri{$_}++ for ( @listeFicDate, @perfDate ) ;
    delete $tri{$_} for @listeDate ;
[download]

\s includes \t, \n and \r

http://www.softpanorama.org/Unixification/free_registry_tools.shtml