regexp lookback question

[bookbuyer2000]

I know this is a perl question in a php forum, but hopefully someone can still help.

I have a perl script that loops through data.

This is the line of code:
$Amended_data[2] =~ s+(Set\🙁.*?))+Please include $1) +;

It changes the data slightly from this:
(Set:Bowl and Fork)

to this:
(Please include Bowl and Fork)

I want the "Bowl and Fork" portion to be lower case, like this:
(Please include bowl and fork)

What can I do to the "$1" in that line of perl script to make it be lower case?

Thank you!!

[bradgrafelman]

Try something like this:

$Amended_data[2] =~ s+\(Set\\:(.*?)\)+Please include \L$1\E\) +;