user@draakje:~$ perl lol.pl 'this is my line' 'p'
15      1       0       t       phis is my line
15      1       1       h       ptis is my line
15      1       2       i       pths is my line
15      1       3       s       pthi is my line
15      1       4               pthisis my line
15      1       5       i       pthis s my line
15      1       6       s       pthis i my line
15      1       7               pthis ismy line
15      1       8       m       pthis is y line
15      1       9       y       pthis is m line
15      1       10              pthis is myline
15      1       11      l       pthis is my ine
15      1       12      i       pthis is my lne
15      1       13      n       pthis is my lie