#! /usr/bin/perl -w
$nb_urb=0;
$last_line="Pas de ligne précédante";
while (<STDIN>) {
        if (/URB_FUNCTION_ISOCH_TRANSFER/){
                print STDOUT "$last_line";
                print STDOUT "$_"; # ligne peut être a virer, on s'en fout
				   # non ?
                ++$nb_urb;
        }
        $last_line=$_;
 
}
print STDOUT "\nNombre Total D'URB Iso : $nb_urb\n";

