#!/usr/bin/perl my $string = "AGI Tx >> 200 result=50 endpos=17760"; if ( $string =~ /\s*endpos=((\d)*)\s*/ ) { print "\ntrue\n"}; #print "\n\n $1 \n\n";