Shell Programming and Scripting

print " @test \n";

 <title>0008857661</title>
 <title>0009841171</title>
 <title>0010161261</title>
 <title>0010230023</title>

@test = map { /\D*(\d+)\D*/; $1 } @test;

perl -e '
@array = qw|
 <title>0008857661</title>
 <title>0009841171</title>
 <title>0010161261</title>
 <title>0010230023</title>
|;
s/^.*?(\d+).*$/$1/ for @array;
print "@array\n";
'

@test = map { /\<title\>(\d+)\<\/title\>/; $1 } @test;

@test = map { 
/\D # A non digit
.* # followed by any number of any characters greedily matched
(\d+) # a capture group of one or more digits
\D # followed by a non digit
.* # followed by any number of any characters greedily matched
/x
; $1 } @test;

@test = map { /\D+(\d+)\D+/; $1 } @test;