Select Code to Download

#!/usr/bin/perl
use warnings;
...
    say "Yes 4" if $voltage =~  /^0.*V$/;
    say "Yes 5" if $voltage =~  /V$/;
}

Argument "0.940V" isn't numeric in numeric eq (==) at ./1.pl line 16.
Argument "0.940V" isn't numeric in numeric eq (==) at ./1.pl line 16.
...
Yes 4
Yes 5
Argument "0.740V\r\n" isn't numeric in numeric eq (==) at ./1.pl line 
+16.

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper \@voltages;