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