$data =~ s/ss^\b/ran("55","\$\$","\$\$")/gie;