use strict;
use warnings;
$_='a';
my( $a, $b, $c ) = map defined $_ ? $_ : '' , m/(.?)(.?)(.?)/;
print "'$a''$b''$c'\n";
__END__
'a'''''