#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>) {
    my @line = split/(?<=x)/;
    print join "\n", @line;
}

__DATA__
1234x456x789