C:\>perl -le "my $test = '1=1234567891'; my @tester = $test =~ /(\d*)=(\d){10}/; print for @tester"
1
1