Hello brothers!

Suppose we have a text file called "data.txt" with some lines like this:
random data ~ random data ~ random_data
random data ~ random data ~ random_data
random data ~ random data ~ random_data
random data ~ random data ~ random_data
...

By using unix (GNU) utility ''sort'', one can sort alphabetically the lines "starting" at, say, field second or third or whatever by writing: "sort -t'~' -k2", where '-t' option receives the character which delimites the fields, and '-k' option receives the key field number for sorting (2nd in this case).

My question is: How to do that with Perl?

I've tried, without success, this: "sort {substr($a, index($a, '~')) <=> substr($b, index()} @lines;" where @lines has, obviously, the lines of "data.txt".

Any insightful idea? Thanks. Michael