alias rmdots="perl -pe 's/\.\$// if /@{[shift]}/'"

##</code><code>##

alias rmdots="perl -pe 'BEGIN{\$p=shift}s/\.$// if /\$p/'"