Select Code to Download

use strict;
use warnings;
...
my $regex = qr/\d\.\d/;
unlike ($wontmatch, $regex, 'No match');
like ($willmatch, $regex, 'Good match');