use strict;
use warnings;

my @TEST_STRINGS
    = ( q(), qw(
                1 12 123 1234 12345
                )
        );
for my $t (@TEST_STRINGS) {
    printf qq(%-7s => "%s"\n), qq("$t"), swap( $t );
}
exit( 0 );