Beautiful perl

liol on 2004-12-22T06:07:47

Enjoy!

#!/usr/bin/perl

@a = @b = ( "%s %s\n", 'a', 'b' );

print sprintf( @a );
print sprintf( shift @a, @a );
printf( @b );
printf( shift @b, @b );