#!/usr/bin/perl

use warnings;
use strict;

my $string = "testxtest";
$string    =~ s/([^x])/\n$1\n/g;
print $string;