Script qui fonctionne en bash mais pas en Perl sniff...

Bonsoir tout le monde !!

Voilà, je code un petit programme et pour l'instant j'en suis à la portion detection usb.

j'ai donc fait un test en bash

#!/bin/bash

while [ 1 ]
do
        if [ -b "/dev/disk/by-uuid/4489-7E11" ] ; then
                echo "coucou"
                #exit 0
                sleep 1
                clear
        else
                echo "pas coucou"
                sleep 1
                clear
        fi
done

On ne peut plus simple.
La même chose en Perl

#!/usr/bin/perl

use strict;
use warnings;

my $u = "4489-7E11";
my $uuid = 'ls -l /dev/disk/by-uuid/';

#print $uuid;
#exit;

while (1) {
        if("$uuid" =~ /${u}/) {
                print "coucou\n";
                sleep(1);
                system("clear");
        }else {
                print "pas coucou\n";
                sleep(1);
                system("clear");

        }
}

Donc le problème:

Suand j'exécute le script bash avec la clé connectée, "coucou" s'affiche, quand je la déconnecte (le script tourne toujours) "pas coucou" s'affiche, tout va bien.

Par contre avec le script perl...
Quand j'exécute le script avec la clé connectée, "coucou" s'affiche, quand je la débranche(le script tourne toujours) "pas coucou" ne s'affiche pas -_-

J'ai l'impression que le script ne repasse pas dans le if et donc par conséquent il ne doit pas repasser avant dans le while...

Qu'en pensez vous ?

Merci d'avance ( :

--
:(){ :|:& };: