Select Code to Download

#! perl -slw
use strict;
...
Subroutine swab redefined at (eval 1) line 2.
'BA'
' B'

#! perl -slw
use strict;
...
'AB'
' A'
'  '