perl -e '$x = q(\b); $y = "$x"; print $y'