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

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

[download]
It is amazing!

Linux & Perl always have a new surprise for me!

Thank you!

In Section Cool Uses for Perl