I have a file which has a lot of floating point numbers like this:

4.5268e-06 4.5268e-08 4.5678e-01 4.5689e-04...

I need to check if there is atleast one number with an expoenent -1. So, I wrote this short snippet with the regex. The regex works because I checked and it does. But what I am getting in the output is all 1s. I know I am missing something very basic. Please help.

```
#!usr/local/bin/perl
use strict;
use warnings;

my $i;
my @values;

open(WPR,"test.txt")||die "couldnt open $!";
while(<WPR>)
{
chomp();
push @values,(/\d\.\d\d\d\de+[+-][0][1]/);
}
foreach $i (@values){
print "$i\n";}
close(WPR);

```