or download this
#!/usr/bin/perl
use strict;
...
0906568946748922INR~ZP HLHLKJ87 ~ 1437865.95~INR~20080623~NI209969~HSB
+C0560002 ~MOTOSPECT UNILEVER LIMITED ~1234567
+ ~/INFO/ATTN: ~//REF 1104210 PLEASE FIND THE D
+ET ~ ~ ~NEFT~REVOSN OIL CORPORATIO
+N ~IOCL ~09065010889~0906501088900122INR~ 7~ 1~ 1
0906506749056822INR~Q08709798905745~ 5960.74~INR~20080623~NI209987~
+ ~SDV AIR LINK REVOS LIMITED ~458ss4
+53 ~ ~
+ ~ ~ ~NEFT~REVOSN OIL CORPORA
+TION ~IOCL ~09065010889~0906501088900122INR~ 7~ 1~
+ 1
0906503389054302INR~UTRI790898U0166~ 2414~INR~20080623~NI209976~
+ ~FRAGNOS EXPRESS - TRS CARD S DIVIS
+I~ ~/BNF/9826805798 ~
+ ~ ~ ~NEFT~REVOSN OIL
+ CORPORATION ~IOCL ~09065010889~0906501088900122INR~ 7~
+ 1~ 1