#!/usr/bin/perl
use List::Util 'shuffle';

@words = split /\s+/, <>;
print join ' ', map { join '', shuffle split//, $_ } @words;
print "\n" . join ' ', @words;