$boat_name =~ s/(?<!\$)\$[iswnmgtz]//g;
$boat_name =~ s/\$\$/\$/g;