perl -e '$_="abcdef";s/@{[s".."."gr]}\K$"//;print"$_\n";' 
abc def