http://www.perlmonks.org?node_id=549655

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

hi all

These days I am learning perl by writing simple perl programs. I have done lot of system side programing using fork in 'C' language. So I have enough knowledge on fork and its behaviour.
I am wondering the behaviour of fork, when I use it with perl. I might have not understood the fork concepts properly in perl.
definitely monks can explain me better. Here is my code

fork || print for split (//, "a" x 10);
Output :-
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa +aaaaaaaaaa aaaaaaaaa1a11aaa1aaa1aaa11a1aaaaaa111a1a11a11a1a111aaa1aaaaaaaaaaaaaaa +aaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa +aaaaaaaaaa aaaaaaaaaaaaaaaaaa1aaa1a1a1aaaaaaaaaaaa11aaaaaa1a111a1a1a1aaa11aa1a11a +111a111aaa 1aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa1aa1a1a1111a111aaaaaaaaaa11aaaaaaaaaa +a11111a1aa a1aaaaaaaaaaaaaaaaaaaaaa1a11111aaaaaaaaaaaaaaaaaaaaaaaaaaa11aaaaaaaaaa +aaaaaaaaaa aaaaaaaaaaa
Output prints some '1's in between 'a'.
could anyone explain me what is happening with the code ?

"Keep pouring your ideas"