Re^3: Plaintext underlining tool

[chanio]

in reply to Re^2: Plaintext underlining tool
in thread Plaintext underlining tool

{qw(a - b = c ~ d ^)}->{substr($0, 0, 1)} || shift;

It is amazing!

Linux & Perl always have a new surprise for me!

Thank you!