perl -pe'$_=/\benergy\b/&&<>'