$ perl -le '$,="|";$s="foobar"; print substr($s,-2,2)="z",substr($s,-2,2)'
z|bz