It thinks so, but I'm not using Unicode anywhere. Here's the whole script.
#!/usr/bin/perl
#
#
use strict;
use warnings;
my $file = "input.txt";
open ( FILE, $file ) || die "Can't open $file $!";
while ( <FILE> ) {
chomp;
if ( $_ = /\d+\*/ ) {
print "$_\n";
}
}
As for the \d{1,} -- I was actually going to put an upper limit on it at one point, so just wrote it that way. For now the + will do though.
Update - I tried on another machine, and it works, so it's definitely machine related. Both machines are running Perl v5.8.0
Cheers