my $result;
# first open or die
open my $eject, '-|', 'eject -n' or die "Can't eject: $!\n";
# Then read in lineby line
while (<$eject>) {
    next unless /^device is/;
    # until the result is found
    $result= $_;
    last;
}
# done
close $eject;