#!perl -ln
/.{50}/,$_=$&while print&&s/\$[`']/$&/gee