Win8 Strawberry 5.8.9.5 (32) Thu 01/28/2021 14:55:21 C:\@Work\Perl\monks >perl -Mstrict -Mwarnings use Data::Dump qw(dd); my $s = "parameter=TO_DATE('1900-01-01','YYYY-MM-DD')\n"; dd 'before:', $s; $s =~ s/=(.*)/="\1"/; \1 better written as $1 at - line 7. dd 'after:', $s; ^Z ("before:", "parameter=TO_DATE('1900-01-01','YYYY-MM-DD')\n") ( "after:", "parameter=\"TO_DATE('1900-01-01','YYYY-MM-DD')\"\n", )