This string is all foobar, but a little Perl should swap the bars and foos