perl substitution question

[Mike_Ca Li]

How to replace
"Test(23)" with "Test(23)
"
"Test(1234)" with "Test(1234)
"
"Test(any number of digits)" with "Test(anynumber of digits)
"
Thanks.

[James R. Ferguson · Accepted solution]

Hi Mike:

# echo "Test(123)"|perl -wlpe 's/Test\((\d+)\)/Test\($1\)
/'

Regards!

...JRF...

[Mike_Ca Li]

Works great! Thanks

[Paul F. Carlson]

$st="Test(123479)";

$st =~ s/Test\((\d+)\)/Test\($1\)
/g;