#!/usr/bin/perl print '
'; while(<>){ s|\\|\\\\\\\\|g; print; } #The above is used to render \b (slash b) and \\ (slash slash) print '
';