Need help with a regex

[Tony Ewell via perl6-users]

Hi All,

What am I doing wrong here?

$ p6 'my $x="\$1.23"; $x~~s/("\$") (.*?)/$1USD/; say $x;'
USD1.23

I am expecting to see  `1.23USD`

Many thanks,
-T